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IDENTIFICATION 


PRODUCT CODE:  MAINDEC-11-DZRJJ-A-0 tae 
PRODUCT NAME:  RPC4/5/& FUNCTIONAL CONTROLLER TEST PART 11 

DATE CREATED: MAY 1975 

MAINTAINER: DIAGNOSTIC ENGINEERING 


AUTHOR: PETE BLACKSTONE 
THE At dh GR es THIS COCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE SND SHOULD NOT SE CONSTRUED AS A 
StiTINENT BY ts gta. Fou JTPNENT CORPORATION. 
DIGITIAL JTPME NT 25 ASSUMES N 
| nese Ase oth FOR ANY PSRORS. THAT MAY APPEAR IN T 
t 
THE SOFTWARE DESCRISED IN THIS DOCUMENT 15 FURNISHED 
TO THE PURCHQSER UNDER A LICENSE FOR USE ON A SINGLE 
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF 
DisiTAL’S SQEYRIGHT | NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT gs ft OTHERWISE BE PROVIDED IN 
\ WRITING SY DIGITS 
| DIGITAL EQUIPMENT CORPORSTION ASSUMES NO 
RESSONSISTC ITY FOR THE USE OR RELTOSTLITy oF rITt 
SOFTWARE ON EQUIPMENT THaT IS NOT SUPPLIED BY DIGITAL 
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S THE DCL OF THE RPO4/S’6 DISK SUBSYSTEM 
THER AN RH11 OR RH7Q CONTROLLER. 
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IT USES THE 
ure tHe cUgsvSTEM, | Ra boes N 

» @ Br5k PACK WITH NO VITAL INP SEMATION 

SENTIAL. AFTER A SUCCESSFUL RUN. a 

DIAGNOSTIC IT CAN BE ASSERTED THAT THE 

SussySTEM WORKS, pas CESSFULLY WHILE STANDING 

ALONE. RACTION AND D TIMING IS LEFT TO 

OTHER DIAGNOSTICS. THIS IS WITH sie aseurevIon THAT STATIC 1 

[D2RES AND DERPT ) HAS BEEN AUN SUCCESSFULLY. 


REQUIREMENTS 
EQUIPMENT 


4 

my 
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PDP-1) COMPUTER | WITH CONSOLE TELETYPE, &ND_A RPO4/S/6 DISK 
syeren, THE RFOG/S/6 SISK SYSTEM sat CONSIST OF aN RHI 
CONTROL pet “R DISK CONTROL LOGIC < : EC 733 DISK 
DRIVE, AND is. SFPROPRIATE DISK pack THE DISK Pack NEED 
NoT_ BE FORMAT SED SECTION F The 015k SURFACE SHSLL 
BE S000 : oe! FREED, THE STAPACE F OR THE FOLLOWING SECTORS 
MUST SE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE 
IFSEGIL OR ORITY BEFORE ANY DATA ERROR can BE STTRIBLTED TO 

ie ms Baws 

CYLINDER 00, TRACK 00, SECTOR 00 

cYLINOER OO, TRACK OO, SECTOR 0} 

CYLINDER 06, TRACK 18, SECTOR 2: 

CYLINDER OL; TRACK OO, SECTOR 00 

CVCINDER Se. TRACK 00: SECTOR 00 

CYLINDER O35, TRACK 00; SECTOR 00 

CYLINDER 04 TRACK 00; SECTOR 99 

CYLINDER OS; TRACK 00; SECTOR 90 

CYLINDER OS: TRACK 57° SECTOR 04 

CYLINDER 06; TRACK 00; SECTOR 09 

SYLINDER O07, TRACK OO, SECTOR 90 

CYLINDER O08; TRack 99; SECTOR 99 

PYLINDER 99: TRACK 18° SECTOR 

EYCINDER 4ib, TRACK 18° SECTOR 2! 

STORAGE 


THIS PROGRAM REGUIRES i6K WORDS OF MEMORY 
PRELIMINARY PROGRAMS 


THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRIG-(LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS. 

IT ASSUMES THAT MAINDEC-11-D2RJH-(LATEST 

FEY) HAS BEEN RUN WITHOUT ERRORS. 


IT ASSUMES THAT MAINOEC- sales LATEST 
af HAS BEEN RUN WITHOUT ERROR 
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LORDING PROCEDURE 
USE STANDARD PROCEDURE FOR LOADING 


STARTING PROCEDURE 


WITCH 12 MUST BE SET WHEN THIS 

re, CONTROLLER. it { BE SET 
SOFTWARE athe pet aren IF THE 
ARAG on ® wlF ESCRIPTION 
OPERATION N. 


CONTROL SWITCH SETTINGS 

SEE SECTION S.1 

STARTING ADDRESS 

START AT ACORESS e00---FOR NORMAL 


START AT ADDRESS 210---FOR UNIT SELECTION 


=55 STA 
200 § 


ALL eer MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPOY/S) 6S ON THE Sy SYSTEM WILL BE 
TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT AT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 


TESTED ONE AT A TIME BEFORE “END 


T IS POWERED UP 


£10 START 


BLL SUITCHES MUST BE QOMN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL 
NUMBER TO SE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 


FOF / ERCH Pass OF THE PROGRAM. 


PROGRAM AND/OR OPERATOR ACTION 
CRD THE PROGRAM INTO MEMORY. 


( mo & 
2 . . 


PRESS “LOAD ADDRESS”. 


- 


-ABS TAPES 


SET STARTING ADDRESS ON THE SWITCH RES 


SET “OPERGTIONAL SWITCH SETTINGS” (SEE SECTION §.1) 


WORST CASE IS ALL SWITCHES DOWN. 


PRESS “START”. 
&. FOR_THE FIRST PASS EACH TEST 
PASS” IS PRINTED. THE a ‘ST 


INTERVENTION "© i a GRAM I N 
MONITOR. THE ete AND SUBSEQUENT aye WiLL EXECUTE 
ERCH TEST FOUR Tines - EACH Ona VES tate? Ne 


SELECTED SEFORE “END Pass” IS 


RINT 
AND SUBSESUENT PASSED DO NOT NEED ANY: OPERATOR INTERVENTION. 


WILL BE EXECUTED ONCE 
a THE ight ene sey! OR fa SELECTED BEFORE “EN 
PASS WILL esas, OreneToe 


, s a NT Prt — iN 


em ee 


FOL 
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Or TeaL 


PRINTED OUT. 


ASK FOR THE UNIT 


ISTER 
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OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 
IF THE PROGRAM IS reine RUN ON A yeti | PROCESSOR (1, E. 


= £34) RD SW 
IS NOT prneeN AND WILL USE A “SOFTWARE” “SuttcH REGISTER. 
My SETTIN a his "SOF THAR” nice 18 CALED BY CONTROLLED 


FONTES \ grt MAES 

RPOS/S6 INTERRUPT. THE “SOFTWARE” SWITCH VALUES BRE ENTERED AS 
AN OCTAL NUMBER IN RESPONSE TO PROMPTING “FROM THE SWITCH 

ENTRY ROUTINE: 


*SWR = NNNNNN NEW = 


EACH TIME SWITCH SETTINGS PRE ENTERED, THE ENTIRE SHITCH 

REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 

REQUIRED, *RUBCUT’ AND "CONTROL U FUNCTIONS MAY BE USED TO 
CORRECT TYPING ERRORS DURING SIITCH ENTR 


ON PROCESSORS WITH HARDWARE SWITCH pe ne THE #SOFTWARE” 
SWITCH REGISTER MAY ALSO BE USED. THE PROGRAM Aah ALL 
16 SWITCHES IN-THE *UP* POSITION wih IT_IS STARTED, AL 

SWITCH REGISTER REFERENCES WILL BE TO THE “SOFTWARE BESISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SHITCH DEFINITIONS ARE GIVEN IN SECTION S “OPERATICNAL 
Ss Sui TC H SETTINGS” HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 
SHITCH 15 - HALT ON ER ROR 

THIS SWITCH IS SET, IF THE PROGRAM FINDS aN ERROR 
ait THE REPROPIATE INFORMATION WILL BE PRINT 
AND THEN THE PROGRAM WILL HALT. RETER THIS HALT. PRESSING 
“CONTINUE” WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
SRROR IS FOUND Whe THE SAME THING WILL HAPPEN. 


SWITCH 14 - LOOP ON TEST 
EN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOF 
ON THE pen TEST SEING EXECUTED. FOR & pts 


NE WAY TI GR N 
TEST IS 70 SET THIS ‘SHITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 - INHIBIT ERROR TYPEOUTS 
CHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 
CEASE ROUE VER OPERATOR INSTRUCTION S SUCH AS “STOP DRIVE x 
ee CONTINUE. THE END OF PASS * BTA NUMBER | 0F SERECRS 
THIS pass 4N PRIvEN x" WILL BE TRUE, THAT IS OUGH 
Pe IntanTe WERE INHIBITED IF THAT PASS FOUND & é ERRORS, 
IT WILL SAY $90. 


SWITCH le - wae CONTROLLER SELECT 
THIS SWITCH MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
LIEK DRIVES TO TESTED ARE CONNECTED TO AN RH?O CONTROLLER. 


ee epee eee 
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IVES TO BE TESTED ARE 


QGRAM ON SECOND PASS WILL 


K DR 
LLER. 
a 
MES BUT WILL DO EACH TEST 


a ONLY. 


SWITCH 10 - BELL ON ERROR 

WHEN THIS SWITCH IS SET f 3 onto FINOS AN_ERROR 

THE “Bet OR “ALARM” WELL UNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 IS SET YET INEORNAT ION IS er Dee WHEN ANY_ERROR 

IS DE sty TAKE THE EXAMPLE OF_A PROGRAM 18 Sure me TEST WITH 


oe M 
iS PRESENT BUT IF THE BELL BR ALARM STOPS i MEANS THAT 
THE ERROR IS NOT PRESENT. 


SWITCH 9 - L fou ON ah 


WHEN THIS SWITC IF THE PROGRAM FINDS a ERROR 
THEN GENERALLY Sue “passa WILL LOOP BACK tO.T 
EXECUTED "SCOPE" STATEMENT. IF ON THE SECO 


THROUGH AN ERPOR re FOUND I TWILL AGAIN 


IF THE ERROR I ES tWILe 
CONTINUE NORMALLY WITH bi PROGRAM. EACH TIME THE ogy 

IS ee PRINTOUT WILL TAKE PLACE UNLESS SWITC 

IS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS AESOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: SEE SECTION 8.3 


HB :0> 
ts A SPECIAL SuTTCH WHEN SET a QO THRU ? 


a DE 


woke oOo DT -410 


E 
BND IN. WHEN THIS SWITCH JS NOT SET THEN SWITCHES 
Q THRU 7 HAVE THE MEAING JTS NAME INDICAT ES. 
FOR EXAMPLE SWITCH 7 IS we oF FURTHER COMPARES THAT IS 


oO 
m 
a 
D 

> 


) IS ERROR AN ON WITH INT 

ALL THE eS& WORDS. HOWEVER IF THIS WAS DONE uITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A _2B- 
SEGUENT TEST WILL ALSO BE LOST. SUT WITH SWITCH 7, ONLY 
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THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 3 _SEING LOW IS WITH SWITCH &, WHICH 
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NOTE: SEE SECTION 8.3 


SWITCH 7 = STOP matey COMPARES IF SWO8 ISL 

IF SWITCH 8 IS SET AND THIS <M" TS ALSO SEY “SHEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE_LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH NO 

AND THIS SWITCH IS whe THE PROGRAM WILL DO AS 9 7 
NAME INDICATES. FOR EXAMPLE IN A 2S6 WORD SUFFER IF A 

THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUT 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP _THE PRINTOUT OF ALL 2S& WORDS BUT L 
NOT _STOP_THE PRINTOUT OF ANOTHER ERROR IN ANY wae 
ee IT IS EXPECTED THAT SWITCH 7 Real. BEING SET 


WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
aGatN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH & - TYPE ALL REGISTERS WITH ERROR IF ae IS LOW 
WITCH 8 IS SET_ANO THIS ee IS ALSO SET THEN 


BE DONE IF TCH 11 IS NOT ALS 
Give ACL THE REGISTER CONTENTS (EXCEPT “DATA BUFFER® RHDB). 
SUB-ROUTINE ASSTRACTS 
SEE SECTION 9 “SUBROUTINES”. 
ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS-AND OTHER 

PERTINENT INFORMATION pone THE PARTICULAR FAILURE. 

THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4/S/6 
REGISTERS OR ree races ee DATA. IF THE ERROR ee INA 
SUBROUTINE rs ADDRESS OF THE SUBROUT iNE ‘a oA LSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

MODRESS TO DETERMINE THE CAUSE OF THE ERROR. 


*FATAL’ ERRORS 


IN THE EVENT THAT THE DISK DRIVE ECOMES UNAVAILAGLE TO THE 
CONTROLLER, POWERS DOWN, OR CERTAIN ne Ee STATUS BITS 
CANOT BE CLEARED PRIOR TO THE START OF ATEST SEQUENCE - THIS 
Tone t WILL, BE _COMMUNICATED TO THE OPERATOR. 


~/ SEG 0067 








Mee HAPPENS, THE grenarer LOAD 
ADDRESS 200 (210) AND RESTART Le PROGRAN AS A FIRST ATTEMPT 
TO SOLVE THE PROBLEM. IF THE FILURE SONTINGES TO OCCUR, 
THERE ARE TWO OPTIONS FOR THE OPERATOR: 


i LOOK IN THE TEST LISTING FOR THE “HALT: 
tsTRUCT ION NDF REPLACE IT, PCUS THE THO WORDS 

) ABOVE WITH NOP'S. WITH TTY ERROR 
PRINTSUTS INKIBITED, A ctr LOOP GAN BE INITIATED 
FOR THE TEST IN QUESTION. 


2. GO BACK 1“ RERUN THE DZRPS DIAGNOSTIC AS IT IS 
QUITE POSSIBLE THAT A HARD FAILURE HAS OCCURRED IN 
ONE OF THE HARDWARE REGISTERS. 


IT IS SUGGESTED THAT IF 


THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 
RESTRICTIONS 
BEFORE STARTING THE PROGRAM THE OPERATOR Ay y HAVE THE 
DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B BUT 
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE. 
SWITCH 12 MUST BE_SET WHEN RUNNING ON AN RH70 NTROLLER AND 
BECAUSE OF THE REQUIREMENT és IT TQ BE SET WHEN USING A 
RH7O, THE PROGRAM CANNOT BE RUN IN Sat ba WHEN USING. THE 
SOFTWARE REGISTER FEATURE MILE RUNNING 0 RH70. THIS IS 
BECAUSE THE ROUTINE WHICH Rt SOFTWARE SurTCH SETTINGS IS 
NOT OPERABLE WHEN IN CHAIN MODE. 
MISCELLANEOUS 
EXECUTION TIME 
THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 20 
SECONDS. SUBSEGUENT PASSES WILL TAKE 
6&0 SECONDS . 
STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 
OPERATOR SELECTABLE SCOPE LOOPS 
HERE 1S A COTAILED EXPLAINATION OF HOW THE LOOP a ta WORKS. 
E ROGR T 

IF THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK - 
USUALLY BACK TO THE BEGINNING OF THE TEST. 
+3 Ltt get ee ag LOOP IS USED THEN THE POINT 
TH M GOES B BE CHANGED. 
THE RESTRICTIONS iy THe OOSTNT WHERE THE PROGRAM CAN GO ARE: 

IT MUST BE WITHIN THE TEST “UNDER CONSIDERATION 
LOOP ON ERROR SUITCH MUST 


SET 
THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 
F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 


ere 
. . . 


SES COce 












THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 

aM SWITCH AR ae AND THIS pre RATOR R er ker TABLE COPE LOOP IS USED 
HEN THE PROGRAM WILL LOOP B OINT WHEN I 

COMES TO THE END OF THE EST SNOER LONSTDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
ORMAL OPERATION WILL CONTINUE. 


8.4 PROGRAM REVISION HISTORY 
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PROGRAM DESCRIPTION 
“A LOGIC DIVISION IN HARDWARE MODULES 


REGISTER SOARD (RG) - ERROR REGISTER 1 STATUS REGISTERS 
MUX FOR REGISTERS GO HANDLING REGISTER 
DECCDE COMMAND DECODE EXECUTION OF 
MECH. COMMANDS 


SYNC. DATA BOARD (SN) - DATA CONTROL PARALLEL TO SERIAL 
SYNC. BYTE DETECT. 


oO WD 
oO 


SEEK AND SEARCH (SS) - ame ae SEARCH LOGIC HEADER 


ERROR CORRECTION (EC) - ECC LOGIC ERROR REGISTER 2 $ 3. 
MUX FOR ERROR REG. 2 & 3 LOOK AHEAD 
REG. SSUNTER. COUNTER DATA FORMATION 


| RING COUNT 
DUAL PORT (DP) - DUAL PORT ARBITRATION ATTENTION LOGIC 
SERIAL NO REGISTER MASS BUS REGISTER 
STORAGE 
| 3.2 DISK SURFACE USAGE 
SYMBOLS USED 
& = CYLINDER 
T = TRAC 
S = SECTOR 
Ws he 
FR = READ 
| TT = TEST NUMBER 
co, 10, eu 
| TT22-W,R, TT23-R, TTO4-W,R, TT2S-W,R, TT26-W,R, TT3S-W,R, TT37-W, TTSO-W, TTSI-W.R, TTS2-W.R, TTSS-W.R 
| a 10, $1 
TT27-WiR, TT37-W,R, TTHO-R, TT41-W,R, TTY2-W,R, TTH3-W,R 
| CO, 718, $21 
TT30-li, TT31-W,R 
i 
C1, 70, £0 
TTS0-W/R, TTZ1-W,R, TTS3-W,R, TTSH-W,R 
| C1, T18, Sz! 
TT31-!! 


a nr 





c2. 70, SO 
$¥4) Bhp 


ce, T18, $21 
TT31-W 


63, TO, SO 
beck “WiR 
Ug Sel 

i “it 

C4, TO, SO 

TT31-W'R 

c4, 718, S21. 
Tait 

cS, TO, $0 

TT31-WiR 


1? s+ 
FPaacuR: TT34-H,R 


oa Ti T18, Sel 


TO, sO 
Fra E 
a ae S21 
a so 


C7, T18, S18 
TT31-i -ly 


cB, 70, SC 
TT31-WiR 


, T18, Sel 


Tai-W 


c3 Wi $0 
TTa1-W 


¢3, T18, $21 
TT31-Wi,  TT32-R 


cio, TO, $0 
TTai-wR 


C410, 718, Sel 
TT3E-W,R, TTSO-W,R 


LOL 


THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES 
IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING. 


ea ee ee ee 





SEQ 0010 


HE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
nese THAT ITEM WILL BE FOUND. 


me a a a 


ee a eS 


‘ eax ceeCaume a em em a ee ee ee ee Gee 
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TABLE OF CONTENTS 
HRERHLHRRER EERE EERE 


46 OPERSTIONSL SWITCH SETTINGS 


| 
&: BASIC DEFINITIONS 
172 TRAP CATCHER 
182 —-ACTLL HOOKS 
183: STARTING ADDRESS 
210 - MEMORY MANAGEMENT DEFINITIONS 
24? = COMMON. TAGS 
| 305 ERROR POINTER TABLE 
| 1233 «REGISTER ADORESSES 
| 142 
1412 ##® DIAGNOSTIC CODE eee 
1414 
1417 SETUP TEST 


i432 INITIALIZE THE COMMON TA 
18 SET VALUE FOR SOFTWARE SWITCH 


iy 


ps7; 

| E372 *#eaSLEQOUTINES ee 

S72 

| 

| 6972 END OF PASS ROUTINE 

| S775 SYSMAC LIBRARY ROUTINES 
S778 SCOPE HANDLER ROUTINE 


ae a oe ee em ee re re ee ee a me re ae ee ee ee ee eee Sih Aa OR a RR RT RR RN i EE ER ET i be 28 ERE. 
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TABLE OF CONTENTS . r 
RHRRRESSS HERES ER ES 
$841 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
9908 TYPE ROUTINE 
93°78 TTY INPUT ROUTINE 
102068 READ AN OCTAL NUMBER FROM THE TT! 
10253 ERROR HANDLER ROUTINE 
10310 ERROR MESSAGE TYPEOUT ROUTINE 
15541 BINARY TO ICTAL (ASCII) AND TYPE 
106i8 TRAP DECODER 
10634 TRAP TABLE 


10855 § POWER DOWN AND UP ROUTINES 


aa ne er en en ene ee = tr ore eens oe = 


--— a te ee eee | 
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PROGRAM BY PETE BLACKSTONE 
THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-CC) MAR 21, 1976. 


33 INTERNAL PROGRAM MACROS BEGIN HERE 
RRAREAL AHA RARELER ERLE RERAER EERE RERE 


NOTE: ALL MACRO CALLS SEGINNING WITH “.S" ARE SUPPLIED FROM AN 
EXTERNAL SYSMAC.SML PACKAGE WHICH ast BF MRDE AVAILABLE 
TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 





/ SSLSTHSSSSASSLSSSTSSASLSSSASSSSSALASRSSSSLE SALAS SS SLSSS SSS SAS LTSFS 
oe OPERATIONAL SWITCH SETTINGS 3 
SRAFSLSSPLSSSSSSSASLALA FRESE SLSSELSRAHSAESSLASSSSSSLERSHLAFHSLLPELASE 
| 
1 
| 


47 
SWITCH USE 
15 ie ON ee 
14 OOP _ON TEST 
13 Ng IBIT ERROR TYPEOUTS 
le RH70 CONTROLLER SELECT 
il INHIBIT ITERATIONS 
ss id BELL oe ERROR 
9 LOOP ON BRR 
8 LOOP ON TEST IN SWA<?: 
? STOP FURTHER A uBares rs WO TS LOW 
| E TYPE ALL REG. WITH ERROR i SWS LOW 
| SLFLSFEFELES EASELS LSS EAE FER AEE EARL ARAL LEASE SAA SEAT LAAAA AS HS HARD 
6) BASIC DEFINITIONS 
SESLELEEEATELA FELL ELEREEFFSLLE LAE FASTER EPRERALUHEETFRAAAFFALFRAE 
63 INITIAL ADDRESS OF THE STACK POINTER ### 1000 ### 
) MISCELLANEOUS DEFINITIONS 
80 GENERAL PURPOSE REGISTER DEFINITIONS 
S2 PRIORITY LEVEL DEFINITIONS 


— _ we ee ee ee ee ee oe ena Pepe | 
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Lit) 


2 “SWITCH REGISTER” SWITCH DEFINITIONS 

130 DATA BIT DEFINITIONS (8ITOO TO BIT15) 

:$8 BASIC “CPL” TRAP VECTOR ADDRESSES 

PERERA RATER EE ERRR ERR ERARERERER ARR ALAR ERED AAA REEREAEEP REE CREE EEEE 

snepesesartacaeneantesenneuscenedenunnnenodseneusenennsnncnnecets 

i°s ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A “.+2,HALT™ 
SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED \’ECTORS 

sb-b-tseled-od-lalabeababaiabalelelededeleiiinbolobabaiaielehelehelelelelololeleieisisieieleleleleieielebiiebebelebsieiiiel 

PESeteceeee CheGHANEROREAHARRTERESRSESOROINOREDEDUANEEERUUREREDSS 

FERRELL AAR ALAA RRARA LSPS LARA SEALE RE ARPES EEE RELEASE ELLE LESS ARES SES 


STARTING ADDRESS 
RHELEALERRELRSAAFAL RRALER ALAA LEA ALAR ALARA ERAR AERA LARA SERRE SESE E 


ete STARTING ADDRESS 200 FOR NORMAL STARTS 
THIS WILL TEST ALL RPO4’S ON THE SYSTEM A SINGLE DRIVE AT A TIM. 


STARTING SDDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPESATCR 
AT THE DRIVE 

RAFAAFLA SESE LRA FF ELLE SAR EA EEE AP LAPESAES EARS PERERA ESR ERATE EDEL EEE 

MEMORY MANAGEMENT DEFINITIONS 

HESALEEESELE SAL SEALEAAREE SEER EL ERALE RAR ARETE FAAS ES ESE SLE RELEASES 

KTi1l VECTOR AODRESS 

KT12 STATUS REGISTER RODRESSES 

223 KERNEL “I” PAGE DESCRIPTOR REGISTERS 


234 KERNEL “I” PAGE ADORESS REGISTERS 


tu tm 
o-- ~ 
nm ro 


a 
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RERERRRRRRRAR ARERR ER RAR ERR R RARER EREES EAR EA AE ARERSEEEEE ES EE EE EES 
COMMON TAGS 


TRATARATRHSRAAREAAARALARAAF SRR TREKS LARA L HAAR HRARL EH SHA HL SLL KEKES 


250 ‘THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRA 


RELEASE EARL AAA RAKE R AR AR HARA EER RR RRR ERE E EERE REAR R ERE RPE EEEES 
ERROR POINTER TABLE 
SRRLRRRARER ARLE ERE AA LAE RA RA SERA REE RRE KERR ERE EER EL ARERR REE EER EERE 


30? THIS TABLE CONTAINS ie INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
THE INFORMATION IS OBTAINED BY USING .t INDEX NUMBER FOUND IN 
Love TON SITEMB. THIS gt he INDICATES nies ate t IN re. TABLE IS PERTINENT. 


M ONLY PERTINENT DAT 
NOTEE: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
313 EM ;:POINTS TO THE ERROR MESSAGE 
OH :;POINTS 1 THE DATA HEADER 
DT ;;POINTS TO THE DATA 
DF ;;POINTS TO THE DATA FORMAT 


S54 p tS ttt 111k iii 
PERE PEESODTSISTTSSERGUENESHEEERELEEOEEEERIOEEDEAEORESEEEEOREEEESS 
i319 TABLE OF FUNCTIONS FOR RHCS1 THEN "GO" BIT HAS TO SE SET 

1342 DATA BUFFER FOR RERD WRITE 

SELALLER EAE AREAL ERE RL EAE ERELER EEE EA EES A LAER ER ELSA ASRS LAE ERA EEE ES 
SEALER AERA EL EKER AA AH REEL RARER RRAAE AERA REE EKA LEAR EAR AREA ER EERE EER 
RELERRELLLRER REL ERE ELLE LEAKE LAL ERE LER EE RERERER EER RER EAE LER SEL ERE 
### DIAGNOSTIC CODE xe# 

RELERE EERE EEAREL ERE LE REEL EE ERASE LEER ER LEER ERE EERE LT LEEEES RAL S REALE 
EEELLAE SESE RE RELL EL EE LE EEE AEE EEEAAEERELEERE EERE REE LEAR ER PLEREEREE 


SFLESLHE SALLE FEAL AEA LHF SLES AEF LALA ESAS RL SEL EH AHL FLL AHA LASERS RAE 


eee ee ee 
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en a ae 






PAGE 07 SES 0018 
RERERERRRRERAARRRRRERE ARR EREERRARRSE ERE RESEREEREE REE ER ES EEE EE EES 

SETUP. TESTS 

RERKARRRARE AERA ALARA KAA ER RAR RARE REA EA RE REE ADESSO EERE ERE REEL ESS 


RERRRLRRRRKEARARAREAARERARRARKHEARER RARE ERS | FEE EEE EEE EE ERES 
INITIALIZE THE COMMON TAGS 
RRARAA ALARA ALAR AALEE REA EAA RAERARRERAERALERRR EERE LEE EE EASA LER EESE 


RERRERELE RRA R AERA AAR RA KARE RR RARE RARER AEE ERE AERA EE EER EER ER EEE 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
RELERRA LRA RA AREA RARE RER EER RERER AKER EERE EARS RE SEES RARER EERE ESSE EES 


1$33 IS oe A P- ae (KWL1-P) ON i lei ? 
TF SQ MAKE *WAT” TRAPS GOTO *WAIT. 
IF SO_MAKE EOS INTERRUPTS GO TO "TENE 1" 
IF NOT MAKE ’WAT’ TRAPS GO TO ‘W 
IF NOT MAKE RPO4Y INTERRUPTS GO TO ‘TIME 2” 


1S39 THE NEXT LINE IS TO BE ADDED LATER 
RAND THE JUMP AND NOP REMOVED 


FOR NOW NO CLOCK WILL SE USED ws \Y 
1543. MOV) «= RIS,Q¥ERRVEC ©; SET TINE-OUT VECTOR : a \ 
1573 «TEST 1 REFERENCE EACH REGISTER 
1581 REFERENCE EACH REGISTER SY A MOVE INSTRUCTION 
1827 TEST 2 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
1629 CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES 
1650 TEST 3 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
1652 THE NUMBER OF RPOY/RPOG DRIVES PRESENT IS FOUND 


BY MOVING ALL ONES INTO RHER] WITH UNIT NUMSER 
IN RHCS2 INCREMENTED FROM ZERO TO SEVEN. 


THE SET BITS IN RHAS WILL GIVE DRIVES PRESENT. 


S 
8 THE ORIVE TYPE IS CHECKED TO BE RPOY OR RPOG AND 
UNITS PRESENT ARE STORED IN A TABLE CALLED *UNITS’ 


8 SET UP THE UNITS TABLE 
1795 TEST 4 TYPE wERIAL NUMBER AND DRIVE TYPE 


1797 SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN ‘ATTENT’ 
TYPE UNIT UNDER TEST 
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1800 


1803 


READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 
TYPE THEM OUT AND PROCEED 


TO LOOP HERE SET SWITCH 8 BND THIS TEST NUMBER ON 
SWITCHES O THRU 7 AND RESTAR 


INCREMENT THE UNITS TABLE TO NEXT DRIVE CIF ANY) 
& DECREMENT “NCUNITS” PRESENT TO BE TESTED 


TYPE OUT THE DRIVE TYPE IN ASCIT 
TEST 5 CHECK MOL TO BE HIGH 
om SURE iy DRIVE IS_ON LINE BEFORE STARTING PROGRAM 
F DRIVE IS OFF LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
HANG FOR EVER WATTING FOR DRIVE TO GO ON LINE 
TEST & PROGRAM INTERRUPT 
PROGRAM INTERRUPT IS i BY SETTING ROY AND IE 
IN RHCS1 AT THE SAME TIME 
THIS SHOULD INTERRUPT THROUGH le Se es4 
THE PROCESSOR PRIORITY IS SET T 
TEST 7 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


PROCESSOR PRIORITY IS SET AT S (SAME AS THE DISK) 
TE AND ROY IS SET. THIS SHOULD NOT INTERRUPT 


TEST 10 SET VV BIT #6 IN RHDS1 
THIS eT gE VV_IN_RHDS1 
THERE IS A RESET AT uy 4 BEGINING OF THE TEST 
FOR ERROR RECOVERY ONLY 


IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP 
OR POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 


NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


COMPARE CONTENTS OF RHCS1 AND FRHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
WITH AFTER PACK ACKNOWLEDGE 


ee ee - ee ee 
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RRRAAE RARER RARE LARA E EEA RRR ERE EEE A AKER EERE AREER EER EELS 
DATA TRANSFER RELATED ERRORS (USING MEDIA) 
RARERRRRAR RR ARR R KAR RK AREA KER RARE KERR RRR REAR AEA RAE EEA RR AREER REESE 


2203 
e205 


: NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


TEST 11 LAST BLOCK TRANSFERED-RHDS1 LBT ; 
wet ONE WORD Oe ~91e5_ON yet 410./814., TRACK 18 
SECTOR 21, BY A_WRITE HEADER AND DATA_COMMAN 
THEN CHECK Bl REGISTERS (LAST BLOCK TRANSFERED 
SHOULD BE SET 
THEN 4 Ws Peete vais ae “ety (256 WORDS) 
CHECK ALL REGISTERS AND DAT 
(AGAIN Lat" SHOULD BE ser) 


CHECK THE DRIVE TYPE_AND THEN FILL THE 
WRITE FROM BUFFER WITH APPROPRIATE HEADER 


FILL READ INTO BUFFER WITH ALL ONES 


DRIVE TYPE IS CHECKED AND THEN THE APPROPRIATE 
WRITE HEADER AND DATA COMMAND IS LOADED 


NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 

TIME IS NOT CRITICAL HERE 

NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

COMPARE ALL REGISTERS 

NOW A READ DATA WILL SE DONE ON SAME CYLINDER, SECTOR & TRACK 
CLEAR ANY PREVIOUS ERRORS 

FILL WRITE FROM SUFFER WITH EXPECTED DATA 


FIRST THE DRIVE TYPE IS CHECKED AND THEN THE APPROPRIATE 
READ COMMAND IS LOADED 


SAVE REGISTERS FOR COMPARISON AFTER READ DATA 
TIME IS NOT CRITICAL HERE 


COMPARE ALL REGISTERS 
READ DATA WILL BE COMPARED ' 


DECDOC VER 00.04 
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SEQ 0020 





2s7 5 
2578 
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TEST 12 SEARCH COMMAND 


THE SEARCH COMMAND WILL BE DONE ON CYLINDER 0 
THAT IS STARTING WITH A RECALIGRATE 
THEN HF REE AND DATA WILL aE WRITTEN FOR SECTOR O AND 1 
te L_REGISTERS WILL SE CHECKED 

SEARCH COMMAND WILL BE saan FOR SECTOR 0 
ON INTERRUPT hae 1 HEADER AND g its WILL BE READ 
TIME WILL BE RLY INDE L AS THE TI 4 Aen {op Re TH ' 
cere IS THE ONLY eee THAT THE H 
SECTOR 0 AT INTERRUPT TIME. TIME ALLOWED ts TAXIMUN 


50 SECONDS 
THEN ALL REGISTERS ARE CHECKED AND DATA READ 
IS CHECKED 


GET HEADS TO CYLINDER 0 
FILL WRITE FROM SUFFER WITH HEADER 
FILL WRITE FROM SUFFER WITH DATA 


’ FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 


FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA 

CLEAR READ INTO BUFFER WITH DATA OTHER THAN EXPECTED DATA 
THE WRITE HEADER AND DATA WILL SE LOADED 

SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 
ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


CC’ PARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


NOW CHANGE SAVE REGISTERS TO EXPECTED VALUES 


NOW COMPARE REGISTERS SEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


NOW A SEARCH COMMAND WILL BE GIVEN 

BUT BEFORE THAT ALL POSSIBLE REGISTERS 

WILL BE FILLED FOR iy 3 READ +e ANG DATA SECTOR 1 
AS THERE WILL NOT SE MUCH TIME BETW T 

COMPLETION OF THE SEARCH AND THE SECTOR 1 COMING. 


FILL FOR THE READ HEADER AND DATA COMMAND WHICH WILL NOT 
or EXECUTED TILL AFTER THE SEARCH 

THE SEARCH WILL ONLY LEAVE RHCS1 AND RHDST 
CHANGED ALL THE REST WILL BE UNCHANGED 


ne a ae eee 
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2831 


2840 


2848 


e863 
2889 


2833 
2915 
2937 


2356 


2975 
2977 


2397 
3027 
3050 
3059 
sill 
3135 


SAVE REGISTERS FOR COMPARISON NOT AFTER THE 
SEARCH COMMAND SUT AFTER [HE READ HEADER AND DATA 


NOW SAVE VALUES FOR RHCS1 AND RHOST WHICH 
WILL CHANGE AFTER THE SEARCH 


THE INTERRUPT VECTOR WILL BE SET TO GO TO 2$ 
AFTER THE SEARCH 


TIME IS NOT CRITICAL THIS ONLY WAITS FOR SEARCH COMPLETION 


TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR 
INDICATES WRONG SEARCH IN THE SEARCH COMMAND 


"RITE FROM SUFFER WILL BE FILLED WITH EXPECTED DATA 
CHANGE SAVED REGISTERS TO EXPECTED VALUES 


COMPARE REGISTER BEFORE READ HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


NOW READ INTC BUFFER WILL BE CHECKED TO SEE 
THE READ WAS GOOD 


TEST 13 SEARCH COMMAND 
THE ONLY THING ae IN THIS TEST IS AN IMPLIED SEEK 
IN_A SEARCH COMMA 
THE HEADS START FROM CYLINDER 10 BY A SEEK 
geet Ml A SEARCH SECTOR OQ TRACK O CYLINDER 0 
THEN A READ COMMAND IS GIVEN FOR 


Y TRA ck CTOR 1 
TIME FOR THE READ IS THE ONLY INDICATOR 
OF CORRECT ES RaCH 


GET THE HEADS TO CYLINDER 10 
FILL REGISTERS FOR READ HEADER AND DATA TO BE DONE AFTER SEARCH 


SAVE REGISTERS FOR COMPARISON AFTER SEARCH 
AND READ HEADER AND DATA 


NOW GIVE THE SEARCH COMMAND 
THIS IS ONLY A WAIT LOOP 


TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR 
INDICATES WRONG SEARCH IN THE SEARCH COMMAND 
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3145 
3161 
3188 
3189 
3208 


3230 


3251 
3253 


3270 
3281 
3290 
3309 
3338 
3347 
3364 
3384 


WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA 
CHANGE SAVED REGISTERS TO EXPECTED VALUES 

COMPARE REGISTER BEFORE READ HEADER AND DATA 

WITH REGISTERS AFTER COMMAND 


NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
THE READ WAS GOOD 


THE NEXT TEST pr noves acre 1 ON CYLINDER 0 
TRACKO ne PUTS SECTOR C T ee 
HENCE T orf Ke _ UNFORMATTED F 


THIS POINT ON THE TEST WHEN SECTOR 

LIP, REPLACED. E. a ING IS STOPPED WITH 
ANE R IN THE SECTION OF THE Pepa ah 
THIS. BND WHEN ee OR 1 IS REPLACED THEN THE 


oes BEING gy! HAVE BEEN UNFORMATTED 


PROGRAM THE DISK BE REFORMATTED. 
TEST 14 HEADER COMPARE ERROR - RHER] BIT #7 (HCE) 
WRITE HEADER AND lk. IS USED TO REMOVE SECTOR 1 
AND PUT SECTOR O THERE ON CYLINDER O 
nm A READ DATA IS a Me ebbetie 
ANY DATA READ IS CHECKED 
FILL WRITE FROM BUFFER WITH HEADER 
FILL READ INTO BUFFER WITH ALL ONES 
WRITE HEADER AND DATA IS LOADED 
NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 
TIME IS NOT CRITICAL 
NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
COMPARE ALL REGISTERS 
2 A ia DATA WILL BE DONE ON CYLINDER=0, SECTOR=1, 
FILL WRITE FROM BUFFER WITH EXPECTED DATA 


PAGE le -. 


SEQ 0023 
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340! 
3413 
3447 
3456 
3492 
3510 
3526 
3528 


3548 
3569 
3568 
3587 


3617 
3626 
3643 
3t61 


3665 
3673 
3691 
3719 


READ COMMAND IS LOADED 
SAVE REGISTERS FOR COMPARISON AFTER READ DATA 
TIME IS NOT CRITICAL 
NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
COMPARE ALL REGISTERS 
READ DATA WILL BE COMPARED 
TEST 15 HEADER COMPARE ERROR - RHERI BIT #7 (HCE) 
WRITE HEADER AND DATA 1S USED TO REMOVE SECTOR 1 
AND PUT SECTOR O ON CYL 
10876, WRITE DATA IS Cive FoR SECTOR 1, TRACK 0, CYLINDER O 
HC art 7 IN HERI SHULD SET 
aL REGISTERS ARE C 
THEN A READ HEADER BND DATA SECTOR Ls RACK 0, CYLINDER O 
Is GIVEN, HCE - BIT 7 SHOULD SET AND’A 
HEADER AND DATA SHOULD BE READ 
FILL WRITE FROM BUFFER WITH HEADER AND DATA 
FILL READ INTO BUFFER WITH ALL ONES 
WRITE HEADER AND DATA IS LOADED 


NOW SAVE REGISTERS FOR COMPARISON AFTER 
WRITE HEADER AND DATA 


TIME IS NOT CRITICAL 
NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


COMPARE SLL REGISTERS 


ee WRITE DATA WILL BE DONE ON SAME CYLINDER, SECTOR 


FILL WRITE FROM BUFFER WITH DATA 
WRITE DATA COMMAND IS LOADED 

SAVE REGISTERS FOR COMPARISON AFTER WRITE CATA 
TIME IS NOT CRITICAL 
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3728 
3809 
3828 


3837 
3861 
' 3868 
3887 


3916 
3925 


3969 © 


3989 


40efi 
4022 


4038 
4075 
4083 
4121 


4145 
4165 
4188 


l-DZRIJ-A, RPOY/S/6 FUNCT. CONT. TST-P? 2 DECDOC VER 00.04  30-MAR-76 19:22 


NOW CHANGE REGISTERS TO EXPECTED VALUE 
COMPARE ALL REGISTERS 


READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER 0 
WILL BE ATTEMPTED 


FILL WRITE FROM BUFFER WITH EXPECTED DATA 
FILL READ INTO BUFFER WITH ALL ONES 
FILL REGISTERS WITH READ HEADER AND DATA COMMAND 


SAVE REGISTERS FOR COMPARISON AFTER READ 
HEADER AND DATA 


TIME IS NOT CRITICAL 


_ CHANGE SAVED REGISTERS TO EXPECTED VALUE 


COMPARE REGISTERS BEFORE READ HEADER AND DATA 
WITH AFTER 


NOW COMPARE READ DATA 
THE COMMAND READ ONLY 204 WORDS, 4 HEADER WORDS 
AND 200 DATA WORDS 
TEST i& HEADER COMPARE ERROR - RHER1 HCE 
WITH THE HEADS ON CYLINDER 0 A SEARCH COMMAND IS GIVEN 
_ FOR CYLINDER O TRACK O SECTOR 1, ALTHOUGH THE HEADER 
FOR THIS SECTOR IS CHANGED TO SECTOR 0 HCE-BIT #7 
IN RHER1 SHOULD NOT SET 
BECAUSE SEARCH DOES NOT READ HEADER.BUT ONLY USES SECTOR COUNTER 
GET HEADS TO CYLINDER O 
FILL REGISTERS FOR SEARCH 
SAVE REGISTERS FOR COMPARISON AFTER SEARCH 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


CHANGE SAVED REGISTERS TO EXPECTED VALUE 
COMPARE REGISTERS BEFORE SEARCH WITH AFTER SEARCH 
TEST 17 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 











eee ere : — Se te ee 
: 803 oe | 
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4190 THIS REPLACES REMOVED SECTOR 


WRITE FADER AND DATA CYLINDER O, FORMAT 16 SITS PER WORD 
TRACK O, SecTOR 1, KEYS=0, NUMBER OF WORDS 256 WORDS 


OF 

FuEN READ HEADER. AND DATA FOR ABOVE. 

WAITE FRQM SLEFER NO BERD INTO SUFFER ARE FILLED HITH 

woe aeite conan TS THEN LORCED INTO THE REGISTERS EXCEPT 

THE GD BIT, AND ISTERS ARE SAVED 

THEN 50 £S'GIVEN FOR REAGER AND DATA 

THEN ALL REGISTERS GRE COMPARED TO CHECK FOR IMPROPER CHANGED 
THEN WRITE FROM SUFFER [5 CHECKED TD SEE THAT NOTHING CHANGED 


{ 
= 
-) 


~ADITo 
mur 


| UR 0 
oe) Eo x SND IS ae ghgeD nt 
ND ALL REGrs TERS ARE SAVED 
VEN FOR THE RERO COMMAND 

| 4216 ALL REGISTERS ARE CHEC KED FOR IMPROPER °HANGE 

THEN THE READ DATA IS COMPARED. 

| 

| 

| 

} 


23 FILL WRITE FROM BUFFER WITH HEADER 
33 FILL WRITE FROM ‘BUFFER WITH DATA 

$247 NOW READ INTO ‘BUFFER WILL, SE PabLED WITH SAME DAT 

AS WRITE FROM BUFFER SO_THAT AFTER A WRITE SEpEGRTSONS 


CRN BE MADE TO MAKE SURE THAT WRITE DID NOT 
CHANGE WRITE FROM BUFFER 


4 


$7 NOW THE WRITE HEADER AND DATA COMMAND WILL SE FILLED 
8 NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 
ONE REVOLUTIONSI5670 MICRO SEC, ONE SECT® 760 MICRO SEC 


4324 COMPRRE CONTENTS OF RHCS1 AND _RHOS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


4348 NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


4365 Nee COMPARE. REGISTERS Rate WRITE HEADER AND DATS 
TH REGISTERS AFTER COMMAND 


ee - 
jm rm 


4 
o- 
awn 


mm ie me ne ee ee ee a ee ee 
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NOW WRITE FROM SUFFER WILL BE CHECKED TO SEE THAT 
NOTHER GOT CHANGED 


NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
READ INTO BUFFER IS FILLED WITH ONES 


NOW FILL COMMAND 
NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 


COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


CHEANGE SAVED REGISTERS TO EXPECTED VALUES 


COMPRRE REGISTER BEFORE READ HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


WOW READ INTO BUFFER WILL SE CHECKED TO SEE 
THE READ WAS GOOD 


TEST £0 INVALID ADORESS ERROR - RHERL - "IAE’ © 
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A WRITE HEADER ne DATA hers BE ATTEMPTED TO CYLINDER 411./81 


TRACK OQ, SECT 


INVALID AODRESS ERROR (IRE) BIT #10 IN RHER: SHOULD SET 


CHECK THE DRIVE TYPE_AND THEN FILL THE 
WRITE FROM BUFFER WITH APPRSERIATE HEADER 
FILL WRITE FROM BUFFER WITH DATA 


THE ORIVE TYPE IS CHECKED AND THE RPPROPRIATE 
WRITE HEADER AND DATA COMMAND IS LOADED 


NOW SAVE REGISTERS FOR COMPARISON AFTER 
WRITE HESDER AND DATA 


CHANGE THE SAVED REGISTERS TO EXPECTED VALUES 

AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 

RHWC RHBA,RHCS1 $8 RHCS2 CANNOT BE PREDETERNINED - 

THEY WILL’ VARY DEPENDING ON GATE DELAYS FOR OEEFERENT UNITS 


COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH 
CONTENTS MPTER ATTEMPTED WRITE WITH AN “IAE* ERROR 


TEST 21 INVALID, ADDRESS ERROR - RHER] (EIT siCIAE 





— eo + -- mm a ee a rt ee ee 
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ene eT E DATA IS ATTEMPTED TO CYLINDER 0, TRACK 19, 
TNVaL10_so0RESS ERROR IRE SIT #10 IN RHER] 


FILL WRITE FROM BUFFER WITH -DATA 
WRITE DATA COMMAND WILL SE FILLED 
SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 
CHANGE SAVED REGISTERS TO EXPECTED VALUES 
° gets IS ASSERTED BEFORE RUN IS LATC rh 
HNC RHBA,RHCSI,RHCS2, CANNOT BE PEREDETERMIN 
suey WILL vast "SEPERDING ON GATE DELAYS ON DIFFRENT UNITS 


COMPARE REGISTERS BEFORE ATTEMPTED WRITE DATA 
WITH RETER ATTEMPT, IRE SHOULD BE SET 


TEST @2 INVALID ADDRESS ERROR RHER] -BIT #10 
A READ HEADER AND DATA IS ATTEMPTED TO CYLINDER 0 
TRACK 0, SECTO! 
INVALID BEORESS ESROR IE BIT #10 IN RHER] 
SHO ucO SET 


THIS WILL START WITH THE HEADS ON CYLINDER 10 
ie rneve THAT IAE SETS EVEN BEFORE THE IMPLIED 


GET THE HEADS TO CYLINDER 10 

FILL SEAD INTO SUFFER WITH 125252 

THE READ HEADER AND DATA COMMAND IS FILLED 

SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED READ 
CHANGE SAVED REGISTERS TO EXPECTED VALUES 

aS EXCEPTION IS BSSERTED BEFORE RUN IS LOTCHED 

RHC, PHBA, RHCS1 RacSe, CANNOT BE PEREDETERSMINED 

THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS 


COMPARE REGISTERS SEFORE Briere ree READ HEADER 
BND DATA WITH AFTF® ATTEMPTED REAC 


TEST 23 INVALID ADORESS ERROR - RHER] (SIT #10) IAE 


ee ee me et a 





MNDES =e -DIRIS 


-—=—s ee -_— 
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509° 


wy oat 


ov oat 
mm Ww 
























AGE 18 | sed Uwe 
A READ DATA IS ATTEMPTED TO CYLINDER O, TRACK 0 
SECTOR 20 - FORMAT 18 BITS PER WORD 
INVALID ADDRESS ERROR IGE SIT #10 IN RHERL 
SHOULD SET 
FILL READ INTO BUFFER WITH leSes2 
THE READ HEADER AND DATA COMMAND IS FILLED 
SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED READ 
CHANGE SAVED REGISTERS TO EXPECTED VALUES 


COMPARE REGISTERS SEFORE ATTEMTED READ 
DATA WITH AFTER ATTENTED READ DATA 


TEST 24 ADDRESS OVERFLOW ERROR - RHERI (BIT#9) AOE 
SU, HEBDER, AND_DATA COMMAND 1S GIVEN FOR CYLINDER 0, TRACK 0 
SE eek IE BONE BETER THIS WRITE 


A WRITE HEADER AND DATA COMMAND AS GI 
CYLINDER 410./814., TRACK 18, SECTOR e 


ADDRESS ot jg ys - RHER] BIT#d (AOE) 
AFTER SECTOR 21 IS WRITTEN 
ALL REGISTERS ARE che CKeD 


A READ HEADER AND DATA CYLINDER 410./814., TRACK 18, SECTOR 21, 
260+66+4=330 WORDS IS ISSUED 


SECTOR 21 SHOULD BSE READ CORRECTLY SUT NO MORE 
READS SHOULD HAPPEN, AGAIN THE ‘AOE’ SIT SHOULD SET 


CYLINDER 0, TRACK 0, SECTOR 9 IS READ AND THERE 
SHOULD BE NO CHANGE IN DATA IN THIS SECTOR FROM 
THE tase WRITE HEADER AND DATA COMMAND 

FILL WRITE FROM BUFFER WITH HEADER 

FILL WRITE FROM SUFFER WITH DATA 


THE FIRST WRITE OPERATION IS DONE 
FILL WRITE HEADER AND DATA COMMAND 


CHECK THE DRIVE TYPE AND DO THE 
APPROPRIATE SECOND WRITE OPERATION 


fEN FOR 
1, 26: WORDS 





5342 
5374 
5383 


FO3 
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FILL WRITE FROM SUFFER WITH HEADER 
FILL WRITE FROM BUFFER WITH DATA - 65125 


CHECK THE DRIVE TYPE AND 
FILL WRITE FROM BUFFER WITH APPROPRIATE NEXT HEADER 


THIS IS A NON EXISTANT HEADER AND SHOULD NOT BE WRITTEN 
SINCE "AOE’ SHOULD INHIBIT THE WRITE OPERATION 


FILL WRITE FROM BUFFER WITH DATA FOR NEXT SECTO 


CHECK THE DRIVE TYPE AND DO THE APPROPRIATE 
FILL WRITE HEADER AND DATA COMMAND 


SAVE REGISTERS FOR COMPARISON AFTER WIRTE HEADER AND DATA 
CHANGE SAVED REGISTERS TO EXPECTED VALUES 

CHECK DEVICE TYPE BEFORE SETTING UP *RHCA® & "RHCC’ 
COMPARE REGISTERS BEFORE WRITE HEADER AND DATA WITH AFTER 


NOW PREPARE TO DO A READ HEADER AND DATA 
(THE FIRST READ OPERATION) 


CHECK THE DRIVE TYPE_AND FILL 
WRITE FROM BUFFER WITH APPROPRIATE EXPECTED HEADER 


FILL WRITE FROM SUPFER WITH EXPECTED DATA 
FILL WRITE FROM BUFFER WITH 377 FROM WORDS 261 TO 266 
CLEAR READ INTO SUFFER 


CHECK THE DRIVE TYPE AND DO THE APPROPRIATE 
FILL READ HEADER AND DATA COMMAND 


SAVE REGISTERS FOR COMPARISON SFTER 
READ HEADER AND DATA 


CHANGE SAVED REGISTERS TO EXPECTED VALUES 
CHECK DRIVE TYPE BEFORE SETTING UP °RHCA’ 


COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 
REGISTERS AFTER COMMAND 


NOW COMPARE THE DATA READ 


ee ee ee eee 
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S888 NOW _ERERARE 70 READ CYLINDER 0, SECTOR 0, TRACK 0 
0 SEE THAT NOTHING GOT WRITTEN ON THERE 
NETH THE ADDRESS OVER FLOW BIT SET CABED 
S893 FILL WRITE FROM BUFFER WITH EXPECTED HEADER 
S303 FILL READ INTO BUFFER WITH 377 
S323 FILL COMMAND FOR READ HEADER AND DATA. 
S42 SAVE REGISTERS FOR COMPARISON AFTER READ 
5977 CHANGE REGISTERS TO EXPECTED VALUE 
024 COMPARE DATA/READ 
E04$ © TEST 25 FORMAT ERROR - RHERI (BIT #4)FMT 
6051 AN ATTEMPT WILL BE MADE TO WRITE CATA ON CYLINDER O 
SECTOR O TRACK O WITH 18 BITS PER WORD WHEN THE 
HEADER HAS 16 BITS PER WORD SET 
THIS SHOULD GI'E FORMAT ERROR FER BIT #4 IN’ RHERL 
THEN THIS SECTOR WILL BE READ IN THE CORRECT FORMAT 
16 BITS PER WORD TO CHECK THAT NOTHING GOT WRITTEN 
GOES FIRST WRITE HEADER AND DATA CYLINDER 0, TRACK 0, SECTOR 0 
FILL WRITE FROM SUFFER WITH HEADER 
6080 FILL WRITE FROM BUFFER WITH DATA 
6088 FILL COMMAND 
142 NOW PREPARE TO WRITE WITH WRONG FORMAT 
E144 FILL WRITE FROM BUFFER 
S152 FILL WRITE DATA COMMAND 
170 SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 
WITH WRONG FORMAT 
&207 CHANGE SAVED REGISTERS TO EXPECTED VALUE 
E206 COMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT 
205 NOW PREPARE TO READ WITH CORRECT FORMAT TO CHECK 


THAT NOTHING GOT WRITTEN 


PAGE 20 
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$313 FILL WRITE FROM SUFFER WITH EXPECTED OTA 
$321 FILL READ INTO BUFFER WITH 125252 
6329 FILL COMMAND TO READ [ATA 
6347 SAVE REGISTERS FOR COMPARISON GFTER NORMAL READ 
6383 CHANGE SAVED REGIS ERS TO EXPECTED VALUE 
$407 COMPARE REGISTERS SEFORE READ WITH AFTER 
5427 COMPARE DRTA READ AFTER ATTEMPTED WRITE WITH 
WRONG FORMAT SIT 
S446 TEST @& FORMAT ERRUP - RHERL (BIT #4) FMT 
6443 AN ATTEMPT IS MALE 79 REQD Omim with ARONG 
FORMAT BIT 
FORMAT ERROR SIT #4 IN RHER1 SHOULD SET 
NO DATA SHOULD BE READ 
S464 FILL WRITE FROM BUFFER WITH 107070 
6472 FILL READ INTO BUFFER WITH 107070 
£480 FILL COMMAND TO READ WITH WRONG FORMAT 
6498 SAVE REGISTERS FOR COMPARAISON AFTER READ 
6534 CHANGE SAVED REGISTERS TO EXPECTED VALUE 
6577 COMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT 
£556 COMPARE READ INTO BUFFER TO CHECK THAT NOTHING WAS READ 
6619 TEST 27 REGISTER MODIFICATION REFUSED - RHERI(SIT #2), RMR 
6621 CYLINDER] TRACK 0, SECTOR © WILL BE WRITTEN WITH 


200 WORDS OF 2000'BY A WRITE HEADER AND DATA COMMAND 
THE HEADS WILL BE BROUGHT TO CYLINDER 0 BY A SEEK 
A READ DATA gh WILL BE gO eee 1 TRACK 0 


SECTOR 0 150. WORDS. THIS W 
LEAST 7 MILI SECONDS. IMMEDIATELY AFTER GO AT 


THEN READY WILL BE WAITED ON TO COMPLETE THE 
THEN aus REGISTERS WILL BE COMPARED AND THE DATA READ 


THIS WILL BE REPEATED FOR RHCS1, RHERI, RHDST, RHER2 
RHOF, RHCA, RHERS 
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6646 


£665 
6673 
6712 
6721 
6756 
6758 
6772 
£779 
£797 


6831 


6842 
6893 


6917 
6937 
69393 


£345 


PREPARE TO WRITE HEADER AND DATS LINDER 1, TRACK QO, SECTOR O 
FILL WRITE FROM SUFFER WITH HEAL 


FILL WRITE FROM BUFFER WITH DATA 
FILL COMMAND 

TIME IS NOT IMPORTANT 

NOW BRING THE HEADS TO CYLINDER 0 

PREPARE FOR A READ DATA 

FILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ 

FILL READ INTO BUFFER WITH DATA OTHER THAN WHAT IS EXPECTED 
FILL READ DATA COMMAND 


SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE 
INTO A REGISTER WHILE THE READ IS GOING ON 


NOW RMR IS SET BUT THE COMPLETION OF READ MUST BE 
WAITED ON 


CHANGE SAVED REGISTERS TO EXPECTED VALUE 


COMPARE REGISTERS BEFORE READ DATA WITH REGISTERS 
AFTER READ AND ATTEMPTED MODIFICATION OF REGISTER 


COMPARE DATA READ 

TEST 30 REGISTER MODIFICATION REFUSED - RHERI (BIT #2), °RMR’ 
A WRITE HEADER AND DATA COMMAND WILL BE GIVEN TO 
CYLINDER 1 SECTOR 0 TRACK O DATA WORDS 
OF 079707 
A WRITE DATA COMMAND WILL BE GIVEN TO CYLINDER 1 
SECTOR 0, TRACK O, 255 WORDS OF 2000 
AND 4 WORDS OF "2a, iMEDIATEL Y AFTER GO 
AN ATTEMPT WILL BE MADE TO MODIFY 9 EF fore 
RMR BIT #2 IN RHER1 SHOULD SET 


AFTER THE WRITE IS COMPLETE ALL REGISTERS WILL 
BE CHECKED .. 


THE DATA WRITTEN WILL SE READ BACK AND CHECKED 


THIS WILL BE REPEATED FOR RHCS!, RHER1, RHDST, 
RHER2, RHOF, RHCA, RHER3 


DECDOC VER 00.04 
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$971 
5981 
6991 
6999 
7003 
7017 
7056 
7085 
7067 
708! 
70399 
7133 
7144 
7195 
7219 
7227 
7241 
7259 
7297 
7321 
7339 


7355 
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S£9 0034 
PREPARE TO WRITE HEADER AND DATA 

FILL WRITE FROM BUFFER WITH HEADER 

FILL WRITE FROM BUFFER WITH DATA 

FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 

FILL WRITE FROM BUFFER WITH WITH NEXT SECTOR DATA 

NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 

ONE REVOLUTION=16570 MICRO SEC, ONE SECTOR=760 MICRO SEC 
NOW PREPARE FOR THE WRITE DATA COMMAND 

FILL WRIVE FROM BUFFER WITH 256 OF 2000 AND 4 OF 2001 
FILL WRITE DATA COMMAND ee i" 


SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED 
REGISTER MODIFICATION DURING A WRITE DATA 


NOW RMR MUST BE SET BUT THE COMPLETION OF 
WRITE DATA MUST BE WAITED ON 


CHANGE SAVED REGISTERS TO EXPECTED VALUE 


COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
AFTER WRITE-AND ATTEMPTED MODIFICATION OF REGISTER 


CLEAR ALL ERROR FLAGS 

FILL WRITE FROM BUFFER WITH EXPECTED DATA 

NOW THE READ DATA COMMAND WILL BE FILLED 

NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


NOW COMPARE REGISTERS BEFORE READ DATA WITH 
AFTER COMMAND 


NOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ 
WAS GOOD 
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7370 IF ALL 7 REGISTERS NOT COMPLETE THEN REPEAT 
7378 TEST 31 REGISTER MODIFICATION REFUSED - RHER! (BIT #2)RMR 
7380 A READ DATA COMMAND IS GIVEN TO CYLINDER 9 SECTOR 0 
TRACK O. IMMEDIATELY AFTER GO RHAS IS WRITTEN 
WITH ALL ONES RMR BIT #2 IN RHER SHOULS NOT eet 
7394 FILL WRITE FROM BUFFER WITH EXPECTED DATA 
7401 FILL READ INTM BUFFER WITH ALL ONES 
7408 NOW THE READ DATA COMMAND WILL BE FILLED 
7425 NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
7459. TIME IS NOT IMPORTANT 
7468 COMPARE CONTENTS OF RHCS1 AND RHDS! ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO IS ISSUED 
7492 NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES © 
7514 NOW COMPARE REGISTERS BEFORE READ DATA WITH 
AFTER COMMAND 
7530 NOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ 
WAS GOOD 
7548 § TEST 32 ILLEGAL FUNCTION RHERI - (BIT #0, ILF) 
7550 THIS WILL CALCULATE EVERY ILLEGAL FUNCTION 
BETWEEN O AND 77. EACH TIME AN ILLEGAL FUNCTION 
IS FORMED I WILL BE STORED IN ILLEGAL THEN 
EXECUTION OF ILLEGAL 
WILL BE ATTEMPTED AND RESULTS CHECKED 
7571 GENERATE ILLEGAL FUNCTION 
7589 ILLEGAL FUNCTION HAS BEEN FOUND 
IT IS IN ‘ILLEGL’ 
7592 SAVE REGISTERS FOR COMPARISON AFTER GO 
7662 §§ CHANGE SAVED REGISTERS TO EXPECTED VALUE 
7684  RHCS1 WILL HAVE SC AND TRE ADDED IF FUNCTION IS GREATER THAN SO 
7695  RHCS2 WILL HAVE NOTHING ADDED IF FUNCTION IS LESS THAN SO 
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7719 
7.4? 


7928 
7939 
7981 
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NOW COMPARE REGISTERS AFTER GIVING AN ILLEGAL COMMAND 
TEST 33 Piatt a INCOMPLETE - RHERI(BIT #13)0PI 


EADER AND DATA COMMAND IS GIVEN 
CYLINDER 0 SECTOR 1 TRACK O KEYS O DATA 177777 
WORDCOUNT 260 


AFTER GO IS GIVEN THEN THREE INDEX PULSES ARE 
GIVEN. THIS SHOULD BRING OPI HIGH 


THESE ARE REGULAR SETUPS 

SETUP DATA, WRITE HEADER & DATA, AND FORMAT OF THE WRITE 
SAVE REGISTERS FOR COMPARISON AFTER READ 

GO_ TO WRITE HEADER AND DATA 

BUT BEFORE GO, ONE INDEX PULSE IS GIVEN 

TO CLEAR OUT THE SECTOR CLOCK COUN™ ER IN THE RH11 

SO THAT NO SECTOR PULSES COME DURING THIS TEST 

ISSUE THE FIRST DIAGNOSTIC INDEX PULSE 

SECOND INDEX PULSE 

THIRD INDEX PULSE 

CHANGE SAVED REGISTERS TO EXPECTED VALUE 

RHWIC,RHBA AND OR AND IR SITS OF RHCS2 WILL NOT BE CHECKED 
COMPARE REGISTERS BEFORE WRITE WITH RESULTS AFTER WRITE © 


TEST 34 CONSECUTIVE SECTOR FORMATTING 


46 CONSECUTIVE SECTORS WILL BE Perri on 
STARTING FROM CYLINDER O TRACK 0 SECTO 
FORMATTING WILL BE DONE BY A WRITE HEADER. AND 
e la FOR 4 WORDS, ONE SECTOR 


AFTER EACH SECTOR IS WRITTEN, °SC* WILL BE CHECKED 
TO INSURE THAT THERE WERE NO ERRORS 


FILL WRITE FROM BUFFER WITH THE HEADER 
NOW THE WRITE HEADER AND DATA COMMAND WILL GE SETUP 


ONE 


REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


30-MAR-75 19:23 
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7990 NOW ONE MORE SECTOR HAS BEEN WRITTEN 
C* WILL BE CHECKED TO MAKE SURE 
NO ERRORS OCCURED 


8001 A SECTOR HAS mau Be ere aee NOW 
THE HARDWARE WILL BE CLEAR 
CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 


8031 TEST 3S OPERATION INCOMPLETE - RHER1 (BIT #13)0PI 


8033 THIS WILL TEST THAT OPI_DOES.NOT SET WHEN THREE NORMAL 
INDEX PULSES ARE ENCOUNTERED IN A READ COMMAND 


8036 FIRST 46 CONSECUTIVE SECTORS WILL BE FORMATTED 
STARTING FROM CYLINDER O TRACK O SECTOR el. 
FORMATTING WILL BE DONE BY A WRITE * irae AND 
ee oe FOR 4 WORDS, ONE SECTOR 
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THEN A READ HEADER AND DATA WILL BE DONE 
FOR CYLINDER O TRACK O SECTOR 21 FOR 
11960 WORDS (260.X2eeXe+e60+e60) WITH BUS 
ADDRESS INHIBIT SET. 
AT THE END ALL REGISTERS WILL BE CHECKED. 
8062 FILL WRITE FROM BUFFER WITH HEADER 
8073 NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
8115 ONE REVOLUTION=16570 MICRO SEC, ONE SECTOR=760 MICRO SEC 
8124 NOW ONE MORE SECTOR HAS BEEN WRITTEN 
WILL BE CHECKED TO MAKE SURE 
NO ERRORS OCCURED 
8138 ONE SECTOR HAS BEEN FORMATTED NOW, 
THE HARDWARE WILL BE CLEARED 
CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 
8165 NOW 4& SECTORS HAVE BEEN FORMATTED 


8167 READ HEADER AND DATA FOR 46 SECTORS=11960 WORDS 
WITH BUS ADDRESS INHIBITED 


| 8176 FILL READ HEADER AND DATA COMMAND 
g215 TIME IS NOT IMPORTANT 
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S225 


8236 


. g2eso . 


8277 
8284 
8321 
8332 
8341 
8381 


8296 


8399 
8411 
S420 
8431 


NOW THAT ALL 11950 WORDS HAVE BEEN READ 
“OPI’ WILL BE CHECKED TO BE NOT SET 


*SC’ WILL BE CHECKED 
‘TEST 36 HEAD SELECTION TEST ERR & TRE 
THIS TESTS HEAD SELECTION LOGIC ONLY. A WRITE HEADER AND 
pata et i a IS GIVEN TO EACH TRACK FROM O TO 18 ON 
" nb SECTOR OQ. 
THE DATA ON EACH SECTOR IS UNIQUE. THE LEAST SIGNIFICANT 
5 BITS G GIVE EE CTOR THE NEXT LEAST SIGNIFICANT S BITS 
GIVE TRACK THE NEXT 6 BITS GIVE CYLINDER 


THEN READ HEADER AND DATA IS DONE FOR THE ABOVE AND DATA 
CHECKED 
BETWEEN THE WRITE AND READ ONLY “ERR” AND “TRE” ARE CHECKED 
ON AN ERROR IN THE READ HEADER AND DATA LOOPING WILL BE 
ONLY ON THE ERROR SECTOR READ 

THE FOLLOWING CLEARS ARE TO INITIALIZE TEST FROM CYLINDER O 

THIS GETS THE HEADS TO CYLINDER 0 

FILL WRITE FROM BUFFER WITH HEADER 

FILL WRITE FROM BUFFER WITH DATA 

THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 

ONE REVOLUTION = 15670 MICRO SEC., ONE SECTOR = 760 

MICRO SEC. MAX TIME ALLOWED = ONE REVOLUTION + HEAD 

SWITCH + 2 SECTORS MIN TIME ALLOWED = SECTOR (FIRST fh 

IF THERE IS A FAILURE HERE HALT PROGRAM AFTER ERROR 

SWITCH 1S AND a CURRENT CYLINDER REGISTER Ro REE RNINE 

WHAT CYLINDER IS FAILING 


NOW SECTOR O OF ONE TRACK HAS BEEN WRITTEN CHECK COMPOSIT 
ERROR BIT TO BE SURE NO ERRORS HAPPENED 


SAVE REGISTERS IN SAVE TABLE 
THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING 

THE FOLLOWING CLEARS SETS UP FOR READ HEADER AND DATA 
SET UP FOR READ HEADER AND DATA 


ee ae + ee ee - 
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S434 FILL READ INTO BUFFER WITH ALL ONES . 
8444 FILL WRITE FROM BUFFER WITH EXPECTED HEADER 
S455 FILL WRITE FROM SUFFER WITH EXPECTED DATA 


S44 FILL COMMAND FOR READ HEADER AND DATA 
8512 NOW SECTOR 0 OF ONE TRACK HAS BEEN READ CHECK COMPOSIT 

ERROR SIT TO BE SURE NO ERROR HAPPENED 
S215 SAVE REGISTERS IN SAVE TASLE 
SSE7 NOW THE READ DATA WILE BE COMPARED DATA IN EACH SECTOR 

TS UNIQUE IF PROGRAM IS HALTED ON ERROR THEN LOOK AT 

ROT 70 3 WHAT TRACK ISIN ERROR. LOOKING AT THE Dat 

S175 _N £,7,8 IN GOOS DATA ALSO GIVES TRACK NUMBER 

IN 6000 ai Al25 é1ves TRACK NUMBER 
S554 NOW INCREMENT TO READ NEXT TRACK 
ssig TEST 37 DIFFERENCE LINES 
es7C A WRITE HEADER AND DATA WILL BE DONE ON ALL CYLINDERS 


UP TO 256./Sle. ON SECTOR ZERO, TRACK ZERO. THE DATA WILL 
SE THE SL INGER NUMBER 


THEN A RECO TBRATE AND READ HEADER AND OATS WILL BE DONE 
ON CYLINDERS 0,1,¢,4,8,16,32,64, 128,256 & Sle. 


DATE WILL BE CHECKED. : 
BN AN ERROR, LOOPING WILL BE DONE ON THE 
READ ONLY 


nc TES 


SS5& SETUP [0 INITIALIZE TEST FROM CYLINDER 0, TRACK 0 
| | 


THIS IS TO GET THE HEADS TO CYLINDER ZERO 


THE ORIVE TYPE IS CHECKED at THE APPROPRIATE MAX. 
CYLINDER OIFFERENCE IS SET UP 


$47 FILL WRITE FROM BUFFER WITH HEADER 
sé FILL WRITE FROM BUFFER WITH DATA 


€ 
$67 THE WRITE HEADER AND DATA COMMAND KILL BE LOADED 


to 
a 

jw co 

mo ro 


wo wo a 
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T 
ove REVOLUTION = a8 0 
ISRO SEC ONO SEE 
TIME = ea atiat 
Nin Tine = | SECTOR 
NOW ONE SECTOR WRITE IS COMPLETE. CHANGES WILL BE MADE 
FOR THE NEXT SECTOR, THEN THE QSOVE WILL BE REPEATED 
UNTIL CYLINDER 256. Sle. IS REACHED 


NOW ALL 256. “Sle. as o's a ge. CYLINDER NUMBER WRITTEN 


ECONDS, ONE  dadetake 760 


aS Data ON SECTOR O ACK 0. NOW A RECALIGRAT Ey a em 


BY READ HEADER BND bata THEN A CHECK WILL BE DON 
CYLINDER 0,1,2,4,8, 16,32,64, 128,255,512, AND 0 


INITIALIZE, RECALIBRATE, AND READ CYLINDERS 
SETUP FOR CYLINDER 0 

CLEAR READ INTO SUFFER WITH ALL ONES 

FILL WRITE FROM BUFFER WITH EXPECTED HEADER 

FILL READ HEADER AND DATA COMMAND 

ONE SECTOR = 780 MICRO SECONDS, ONE REVOLUT ION = 

iS670 MICRO SECONDS. MAX SEEK = 52099 MICRO SECONDS 

MAX TIME = ONE REV $+ 1 SEEK + 1 SECTOR 

MIN TIME = 1 SECTOR 

CHECK READ WORDS AS ALL READ COMMANDS HAVE SEEN CHECKED 
(DATA ERRORS MAY IMPLY “IMPLIED SEEK™ ERRORS) 
NOW ONE CYLINDER HAS BEEN CHECKED. CHANGES WILL SE MAD 
TS READ THE NEXT CYLINGER AND THE ABOVE SECTOR READ WILL 
REPEATED 

TEST 40 END OF DRIVE 
EN 


NO_OF TEST FOR ONE DRIVE 
MORE DRIVES, THEN THE PROGRAM 
5S FOR NEXT ORIVE TEST 


rr ooo 


E 
SE 
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SRRRRARPSRRAAARSSRASRAAAR LEHRER SARS SSSA ALAA SALAS ELA A ELSES SASS ES 


SSVRTRARRRSRATRAASRARRASALASRAAR AAAS RA ELLA LASALLE SRSA L HLA AL SSS 


RRRTAATLRALAARRERER ELLER RELA EERE SERA ERE RAE EELS AEE RE LESSEE ESE ES 
RERSUBROUTINES RRR 
RERRRA TARR RERARRAA RAL FRERSS REA RERE RRA R ELLA ARE RSA RATES EEE L ASSL ESE 


TARATSRTRERERARARAASRAAASARERALRALAREAE SS SAA AS HA FARE LA FFE AFL FSFE 


RRRREAERRARERRAR REE ERER RE RER ERE RER EK ERER ERASER EERE EERE ERE RR EEE EEE 


REFRELAAERARRALLFSLELARAAARLERLA RAR RAAL LARS RAE TELLER RAE ELE REALS 
END OF PASS ROUTINE 
PeCeTeTe ETS TETTCTeTeTTTertrerrretrrere rr TTT TTirerere rere rerett tt 


8981 


INCREMENT THE PASS NUMBER ($PASS) 

TYPE “END oa 8XXXXX" ie XXXXX IS A DECIMAL NUMBER) 
IE THERES A MONITOR GO T 

IF THERE 1ey't JUMP TO TST 


NOW FILL DATA 


THIS IS A SUBROUTINE TO SAVE REGISTERS 
IN THE REGISTER TALE TO ANY LOCATION 
ISR gO, aNSAVER 

0 


10 

NUMBER OF WORDS SAVED 
F MUST al Ways Be’ RHCS] 

T MUST ALWAYS BE save 


THIS SECTION WAITS FOR BIT, THROUGH 7'') COUNT DOWNS 


NOW TIME AND TOLERANCE WILL BE CHECKED 


THIS HAS THE TWO COUNT DOWNS FROM 17777 
BIT OID SEY SO CHECK IF INTERRUPT OCCURRED 


THE AMOUNT OF TIME ALLOWED CAN BE CHANGED SY ALTERING LOCATION 
“RETCTR” ABOVE 


NOW DATA WILL BE FILLED 
NOW SAVE REGISTERS 
NOW COMPARES WILL MADE 
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om 





9601 ite SAVES THE GONTENT: OF eRoh HARDWARE REGISTERS 
N MEMORY LOCATIONS TAGED FROM “WC” T 
oe IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
ANO NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 
ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


$703 THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYFED VALUE 


RRRRRREERERERERLHRRAREERALARERRELRARAL RARE REESE SRE EERE EE EEEEEEE 
SYSMAC LIBRARY ROUTINES 
Pere erore tet ttitrererrer itl ititititiiitiititititititititttitritts 


EHEARRARRAARRA ALLA ARE RE RRA EERE REAR AREER AREF EASE REE AERRAE REELS 
SCOPE HANDLER ROUTINE 
SRAFAERARARERRARRAREREELELAELER EELS SEE RERSLA AR PREL ES HH FLEES ERESEE 


S78: THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. i WILL INCREMENT 
ANS LORD THE TEST NUMBER(STSTNM) INTO THE DISPL AY fee (BISPLAY<7:0>) 
AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<IS: 

THE SUITCH SPtioNs PROVIDED BY THIS ROUTINE ARE: 


SW1i=1 INHIBIT SLE na sONS 
SWO9=1 LOOP ON 
SWCB=1 LOOP ON FEST IN SWR<7:0> 


SCOPE ;;SCOPE=IOT 


FELLAS HELEEEERELARELELEL EERE ELAS ERS SARERALERERR SARA SAA ALARA LEERY 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SARALALERAESE RAF EREEELAEERELERE DALAL ELE LERS SAREE SERFS AER EL ERE EER 


3o44 THIS ROUTINE IS USED TO CHANGE A i6-BIT BINARY NUMSER TO A S-DIGIT 

SIGNED DECIMAL (ASCII) NUMBER - TYPE ii. a nrae ct ON WHETHER TI 
NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TY! 
BEFORE THE FIRST DIGIT OF THE NUMBER. LEOING ZEROS WILL RCWAYS 3: 
ge LACED WITH SPACES. 


we NUM, -<SP) s3BUT THE BINGRY NUMBER ON THE STACK 
Tye os 32G0 TO 1 INE 


mm i ee ee ee en a 





30-MAR-76 19:22 
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RETRTSRRARTRAARVATRAA RAAT AAA H AAR EHSL AAA A ALARA LEA A RAFAEL ALE REREF 
3908 TYPE ROUTINE 
‘o TRTERARHTAAA AA ARAHRE AKA RRAK RAR ARAL AKASAKA LAA KALA LRA AA RAE ARES 
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$911 ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BvTE 
THE esa WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
NOTEL: S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
NOTE@: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. f 
~ NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


4) LHéING @ TRAP INSTRUCTION 
TYPE | MESAOR 


oR ;;MESAOR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
MESADR 


SRERLHA PARAL RAE HRERER EERE AEE AREER A ERES EA ERE EEE REL ER EERE ES RERE RES 
9978 TTY INPUT ROUTINE 
RHELLRA RAR ERAR REL RA KERR RER ER EASES EEL ER EERE EER ERE EE ERED EE EEREE 


9989 TK INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
Ne THE INTERRUPT VECTOR RND TURN ON THE KEYBOARD INTERRUPT 


JSR PC, STKINT 
RETURN 


10006 iy SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
8Y READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


| IT IN THE QUELE. 

| IF THE CHARACTER IS @ “CONTROL-C" (tC) STKINT IS CALLED AND 
| UPON RETURN EXIT 16 MADE TO THE “CONTROL-C" RESTART ADORESS (OPERSEL) 
i 
| 


19958 ee SWITCH REGISTER CHANGE ROUTINE. 
ROUTINE IS ENTERED FROM THE TRAP ae D WIL 
iy ICE THE TEST FOR CHANGE IN SOFTWARE ron REG 
L WHEN OPERATING IN TTY INTERRUPT MODE. 


10973 CONTROL ie PASSED TO THIS POINT FROM EITHER ba. TTY INTERRUPT SERVICE 
ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
CONTROL-G BEING TYFED, AND THE SOFTWARE autc ReGYetea BEING SELECTED. 


| 10144 THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
} w Ls 
| ROCHR He A CHARACTER FROM THE QUEUE 


TH PARITY BIT STRIPPED OFF 


STER TRAP 


en ee a ere 


ce 
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10168 ie ROUTINE WILL INPUT A STRING FROM THE TTY 
eRe: 


ROL IN >: INPUT 8 SIRING FROM THE T 
RETURN HERE :;RDDRESS OF FIRST CHARRETER HTL, *, - THE STACK 
;; TERMINATOR WILL BE A BYTE OF A 


esttte test titittitititttititttitittttttttititiititttttttrtitice 


10208 READ AN OCTAL NUMBER FROM THE TTY 
RRRRRER ERE RRK ARERR AREA RRR AEERE ER AE EERE EERE RE ELEN ER ERASE 


10208 patie pout IN Sthheye AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
NG 
ie INPUT Sonne es WILL BE CHECKED TO Tren THEY ARE LEGAL 
OCTAL DIGITS. IF_AN ILLEGAL CHARACTER IS READ A"? WILL cee yin 
FOLLOWED BY 9 thant ace RETURN-LINE FEED. THE COMPLETE NUMSER 
ig BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE "RETURN. 
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RDOCT ;;READ AN OCTAL NUMBER 
RETURN HERE ;;LOW ORDER SITS ARE ON TOP OF THE STACK 
RELLELR AAA RALER ERE EHE RAE ARA REALE AKER AHR EA RES EEAAR REE LER ERE RE EEEEE : ‘I 


10259 ERROR HANDLER ROUTINE 
RALEEA ALAS R RAKE REE AR EEE RAE EEE EERE EEE EAA EEE EERE EEE EERE EREEEE 


;;HIGH ORDER BITS ARE IN SHIOCT 
0262 THIS outs ofltt phy 2 ay THE ERROR FLAG AND THE ERROR COUNT, 
i 


SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
SNO'GO TO SERRTYE ON ERROR | 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 3 | 
SW1S=1 HALT ON ERROR A 
EWiS=1 INAISTT ERROR TYPEOUTS 7 f 
SWid=1 BELL ON ERROR 
Siose1 CGO ON ERROR : 
"ERROR ON s;ERRORSEMT AND N=ERROR ITEM NUMBER a 
SLEFLLESLS FELLA EAALA RELA SSL A FAA AFSL REL EA ERE HRAEAAAE LA EL AL EAL ARLE a4 


10310 ERROR MESSAGE TYPEOUT ROUTINE 
j en ee eee ee ee 


| 10312 THIS ROUTINE USES THE “ITEM CONTROL gt (SITEMB) TO DETERMINE WHICH e2e 
| ERROR ie TO BE REPORTED. IT THEN OBTAINS, FROM THE “ER sah areal (SERRTS), 

AND REPO st THE GEPROPRIQTE INFORMATION CONCERNING THE ERROR 

IT I Y OF ne. SERRTYP SUBROUTINE "FROM SYSMAC. 

| 


WI R CHANGE 

FIRST IF SWITCH & IS SET AND SWITCH 8 RESET THEN 
ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
SECOND IF THE CURRENT ERROR HAS THE SRME ITEM NUMBER 
AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL SE TYPED 
| AND NOT THE ERROR MESSAGE AND HEADER. 
' 


NNDEC- 
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1054: 


10534 





RARRAAARAA RA RA LRA AAA AREA RA RAR AAA HAE SAKA LARA KALLA LEAL AREA KLEE REE 


BINARY 70 OCTAL (ASCII) AND TYPE 
BERRA RARER ARERR RRR ERE EERE REE E RA RARER EE EERE ERE E EAE E AREA AEEE 


i10544 THIS ROUTINE IS USED ie Ore A 16-BIT BINARY NUMBER TO A E-DIGIT 
Na, (ASCII) NUMBER _AND TYPE IT. 
y a HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


BOY NUM, -( SP) 7 NUMBER i. oe TYPED 

TYPOS a FOR TYPEOU 

-BYTE N 1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
BYTE ff tine OR o 


1=TYPE LEADING ZEROS 
iS QSSUPBRESS LEADING ZEROS 


$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i OR $TYPOC 


MOV NUM, -( SP) ;;NUMBER TO BE TYPED 
TYPON ;;CALL FOR TYPEOUT 


a HERE FOR TYPEOUT OF A 16 BIT NUMBER 
L : 


MOV NUM, (SP) :;NUMBER TO BE TYPED 
TYPOC ;;CALL FOR TYPEOUT 


SLSFKALALE LAE RE LARA RAAF AF AD EASA ESSE EERE ESS SEA ESE AEA SESE RAL ESE ELE 
TRAP DECODER 
LEALLFERLLEEAALARALEELELLAALERE REARS tS LFFLELELARERALLLERLLALERELRERE 


1062! rae, RTS WILL PICKUP THE LOWER SYTE OF THE “TRAP’ INSTRUCTION 
AND USE IT TO INDEX THROUGH T= TRAP TABLE FOR THE STARTING RODRESS 
OF THE DESIRED ROUTINE. THEN LSING THE AODRESS OBTAINED IT WILL 
GO TO THAT ROUTINE. 


SELLA LALA SLE AARL EASES RARAAEAS LESS AERA AAT AAE RAR ALLER E RAE LAA EEA EE 
TRAP TABLE 
EERLLARE LAA RES RAE AAAALA RARE RE RERAAFAEA LEED EES REAALAF SE LERE RRL ELSE 


i063 THIS TABLE CONTAINS THE | hatte AODRESSES OF THE ROUTINES CALLED 
BY THE “TRAP™ INSTRUCTION 








+ eee = 





04 
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10655 


RERRRRA RARER ERE SAREE ER RARER ERR ER ER RARER ERI EERIE RRA RR REE A EER EE 
POWER DOWN AND UP ROUTINES 
RRARAR ARERR RARER ARERR RARER RARE ERE RRR RR KEE ER ERA EERE REE EERE 


LOP DS «—«§-_- RHA HAHA E RAKE RARER RARE E ERE REESE SAKE RE RA EEE REK ESSERE SESS SES 
SRRRLA HARES AR ARS AK HAA AKER RK EY KEK KER ERE REALE ESE ELE KE EE EAR ALES SESE 


THAR L LRA RAAARARA ALES SEA AF ELAS ARAL RAK ALAA ALAA RA AL AE AREER ERLE KES 


46 61 172 182 193 210 247 30S 1239 1412 1413 1414 
HRRRAALER ERA RA LAH RR AREER RARER REE R ERR EERE EERE EERE EERE AERA EAE ES 





4 
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— 


eee es PP ine ha IAN A ag Sn lee AB. aks RROD che ah, a ES 






SES 9047 
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DZRI JJ8 TABLE 0 OF CONTEN TS 







“3 ##% ERROR TABLE, BIT DEFINITIONS & STARTING ADDRESSES *#* 






48 
50 OPERATIONAL SHITCH SETTINGS 
aS BaSI¢ DEFINITIONS 

75 TRAP CATCHER 

3s ACT11 HOOKS 

3 STARTING ADDRESS 





aes MANAGEMENT DEFINITIONS 
ae TA 


ERRO POINTER TABLE 
REG TER ADDRESSES 


##* DIAGNOSTIC CODE ### 
SETUP TESTS 


INITIALIZE THE COMMON TAGS 
*' VALUE FOR SOFTWARE SWITCH REGISTER 
REFE piety ER 


U100 G5 4. 100009 > Je Ole TUT  ONIOOIOe 





MOU OUTUMOO. DOOM OUI £ TUG ee 9 






9008 #£*SUBROUT INES HHH 


5 
134 
141 
141 
141 
i82 
143 
152 
158 RENCE EACH 
163 i PARTIAL TEST OF RHAS FOR UNIT to ged PRESENT 
165 T3 TEST FOR DRIVES PRESENT eine a S AND RHCS2 
180 TY TYPE —_ yg AND DRIVE TYPE 
13s TS. CHECK PE HIG 
iss T SROGKAM INTERRUPT 
203 4 INTERRUPT AT eyed AND DIS< PRIORITY S&ME 
20k T10 SET VV BIT #68 INR 
gel pee TRANSFER RELATED ERRORS (USING PEDIA) 
eel LAST BLOCK TRANSFERED-RHDS1 W&T 
ess rs SERRE rere ND 
232 Ti SEARCH AND 
326 T14 HERDER KONPARE ERROR - RHERI BIT #7 (HCE) 
3s4l Tis HEADER COMPARE ERROR - RHER! BIT #7 (HCE) 
4036 T1E HEADER COMPARE ERROR - RHER1 HCE 
4205 T17 SECTOR 1 CYLINDER 1 TRACK 1 
4575 T20 INVALID ereee es R - RHE : A 
| \ 
| - 
; §§ RHER 
| $644 Te? REGISTER MODIFICATION. REFUSED - RHERI(BIT #2),RMR 
| 863 T30 REGISTER MODIFICATION REFUSED - RHERI1 (BIT T #2) , *RMR’ 
| 7405 T31 REGISTER MODIFICATION RerUaey - wins: (BIT #2;RMR 
75765 T32 ILLEGAL FUNCTION RHERI - 
7775 T33 PERATION INCOMPLETE - RHERI (BIT OPI 
7934 T34 CONSECUTIVE SECTOR FORMATTI 
8062 T3s OPERATION INCOMPLETE - RHER (BIT #13)0PI 
£282 T36 HEAD SELECTION TEST ERR & TRE 
8601 T3237 DIFFERENCE LINES 
| ae T40 END OF DRI‘ JE - 
wes 


ie ciasittjessindantaaminapianpailahtiaraipeibihinnt ; - Nd 
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DZ Iya. Pil 


TABLE OF CONTENTS 


END OF PASS ROUTINE 
SYSMAC LIBRARY ROUTINES 
SCOPE HANDLER ROUTINE 
AER! BINARY TO DECIMAL AND TYPE ROUTINE 


UTIN 
THY. INPUT. ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 
ERROR HANDLER ROUT 

ERROR MESSAGE TYPEOUT ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
TRAP DECODER 


RAP TABLE 
FOWER DOWN AND UP ROUTINES 


A ee a ee a ee ee ee ee + ee ee er. ee oe 
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TST-PT 2 MACY11 27(655) 30-MAR-76 18:59 PAGE | 


. TITLE a 11-DZRJJ-A, RPOW/S/& FUNCT. CONT. TST-PT 2 
:*COPYRIGHT (C) 1976 

:xDIGITAL EQUIPMENT CORP. 

i SNAYNARD, MASS. 01754 


| #PROGRAM BY PETE BLACKSTONE 


SSTHIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
j #PRCKAGE (MAINDEC-11-DZQRC-CO) MAR 21, 1976. 


SSRNE SENS SENG SENS SENS SENS SENG SENG SENG SRNELENS SENG SENG SENG LENE SENSE SENG LENS 
SPRNS ZENS SENS SENSE SENG ZENS SENG ZENE SENSE LENE SERENE SRENESRNE LENE SENE SENG LENGE LRENG 
5 SRNSZHNS ZENS ZENG ZENG ZENG ZENS ZENS ZENE SENS ZRNESENS SENG ZENS ZENE SENS SENS /ENS 


;DRIVE MUST BE LOCKED ON PORT A OR PORT B 


oS ENRA SNES NEZ ENR ENR ENR ENR SNES SNES ENR ENE SNR ENR SNES ENEA ENE SNES ENE 
g 73 NR SNR SNR SNR SNR 5 NRA SNR SNR 5 NRA SNR SNR SNR SNR ENR SNR SNR SNR SNE 
gs NR SNR SNR SNR SNR SNR SNR 5 NB SNR SNR SNR SNR SNR SNR SNR SNR SNES SNE 


0 


COUN 
+-turue 


;¥INTERNAL PROGRAM MACROS BEGIN HERE 
it tiiitiitiitttitiittittitttt iit te) 


5 EERE KERR AK EAL E KEKE RAE KA EAE ER ERE EERE SEER EE ERE EE RAR EEAR EES 
MOTE: ALL a CALLS BEGINNING WITH ™.$" ARE SUPPLIED FROM AN 


7% EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
i TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 

tr tr er tr titi ti iit tri irtt ttitiiitititetirtrerttttititt teres: 
-S8TTL OPERATIONAL SWITCH SETTINGS 

i SWITCH USE 

# 15 HALT ON ERROR 

x 14 LOOP ON TEST 

i 13 INHIBIT ERROR TYPEOQUTS 

1 12 RH70 CONTROLLER SELECT 

t# il INHIBIT ITERATIONS 


SEG CO49 





BR a er ee ee eee 





DZRIIA.P1) APERATICNAL SWITCH SETTINGS 
ss +x 10 BELL ON ERROR 
EE :* 3 LOOP ON ERROR 
5° :* 3 LOOP ON TEST IN SWR<7:0> , 
= 1% ? STOP FURTHER COMPARES IF SWOS IS LOW 
5 te S TYPE ALL REG. WITH ERROR IF SWS LOW 


me a ee 


| 
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a 
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DZRIJA.P11 


0 +0 0+ = 0-8 +b 
8 C000 
cwre-Oowon 


BASIC DEFINITIONS 
001000 


000911 : 


17777€ 


177774 
177772 
177579 
177570 


000000 


000007 


000990 


000348 


100900 


009020 
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-SBTTL BASIC DEFINITIONS 
LF ARTTIAL AOORESS OF THE STACK POINTER *#*. 1000 *x# 


-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT;SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


| eaten £m DEFINITIONS 
bT= 3; CODE FOR HORIZONTAL TAB 
LF= 13 ;CODE FOR LINE FEED 


CR= 15 ::CODE FOR CARRIAGE RETURN 
CRLF= 200 ::CODE FOR CARRIAGE RE TURN-L INE FEED 
PS= 177776 ::PROCESSOR STATUS WOR 

EQUIV PS PSW 
STKLMT= 177774 :;STACK LIMIT REGISTER 

IRG= 177772 


Pp 77 ; PROGRAM Mang REQUEST REGISTER 
DSWR= 177570 2, HARDWARE SWITCH REGISTER 
DDISP= 177570 ;;HARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= “0 ;;GENERAL REGISTER 
Riz %1 +: GENERAL REGISTER 
Re= %2 -: GENERAL REGISTER 
R3= “3 -:GENERAL REGISTER 
Ru= “4 ::GENERAL REGISTER 
FS 4S +:GENERAL REGISTER 
Rb= “8 »:GENERAL REGISTER 
R7= “7 :;GENERAL REGISTER 
“EQUIV R&.SP ::STACK POINTER 
-EQUIV R?:/PC . ::PROGRAM COUNTER 
: PRIORITY LEVEL DEFINITIONS 
PRo= ;;PRIORITY LEVEL 0 
PRiz 40 : PRIORITY LEVEL 
PRe= 100 ::PRIORITY LEVEL 2 
PR3= 140 -:PRIORITY LEVEL 
PRY= 209 PRIORITY LEVEL 4 
PRS= 240 : #PRIORITY LEVEL 
PRE= 300 PRIORITY LEVEL & 
PR7= 340 : PRIORITY LEVEL 7 


:*"SHITCH REGISTER” SWITCH DEFINITIONS 
owi5= 0000 


SWll= 

SWi0= 2000 
SWOS= 1000 
SWOS= 

SWO7= 200 
CWOb= 100 
SWOS= 0 
SWOY= 20 






SEG 00S1 





“+0 <0 b «8 «e+ 
“Crom mut 


OF ed Bed ed ed ee ee ee ee ee ee ee 2 ee oe | 
SUUDT ONT east eye +0 0-9 + 


. 
COOP CP CROP OP OP OP CROTON CC CTU ONT OOO 6: ee A BGI III GIG IG IL ICICI ete 


*CDefD0D > BOVINE Cate be OC ee MOOT. Cotes 


ee ee ee ee ee 


a. ko 
tue 


ara 


0-40 +d ob +8 


Oe ee ed eed ee ee ed ee 


“0-90 +008 


» 
co SOP OI Gatue Cn000 OP Ore Gore}. 0D 


- 
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a.P1) Basré DEFINITIONS 


909910 SWO3= =U 
JOQO04% SWO2= 4 
L00002 SWOL= 
aluiuielapy SWO0= 
EQUIV $WO9,SH9 


2 
1 
‘ SWO9, SWS 
-EQUIV SWOS, SWS 
SWO 
SWO 


GUIV SWOS,SWS 
BUIV SWO4, SW4 
SUIV SWO3, SW3 
UIV SwWO2,SWe 
UIV SWO.,SW! 
UIV SwWOO, SWO 


~4 


BIT DEFINITIONS (827CO TO BITS 


oe . . _ . os . . 
e-em = ETUETOETLETIET IED 


. . . . . 

0-40-40 -40-60-40-40-00-40 -40-@ 
on] on) as] on] on) on | | on] or) oe] 
OG LHe ~ ID 
7 a - . — - oe - . on 

WOUDWMMwWwOW 
0-4 40 -40-40-40-46-46-46 00-4 
444-4 4 4 44 4 4 
Or) £ U0" 300.0 


Q 
9 
Q 

-#DaTa 
1090900 8rTiS= 100950 
295556 SiTi4= 49090 
25850 8iTi3= 20000 
015508 BiTi2= 10090 
054090 BITil= 4000 
562905 SiTid= 2900 
051000 BIT09= 1000 
900409 BiTog= 409 
900200 BITOrs 200 
655106 BiTOb= 106 
690549 BITos= 40 
Se Bt ieee ae 
we iw et we au 
590004 Sitte= 4 
900902 BITOl= 2 
60500! BIT00= | 

-EGUIV B 

EGUIV 8 

EQUIV § 

E 5 

E = 

E 5 

.E 2 

.£ 5 

LE = 

LE : 

:* 

e 


Ee 
OOMMOMI-«a <eeeleleeec ect wn ie 


ASIC “CPU” TRAP VECTOR ADDRESSES e 
696094 PPRVECS | 3;TIME OUT AND OTHER ERRORS = 
089819 RESVEC= :;RESERVED AND ILLEGAL INSTRUCTIONS 
000914 TSITVEC= 73"T" BIT 
coceais TRIVECs :; TRACE TRAE 
998014 BPTVECs ;;BREAKPOINT TRAP (SPT) 
999020 ICTVEC= »: INPUT/QUTPUT TRAP (IOT) ##SC0PEss 
oo0ce4 PUWRYECS 24 33POW L 
900030 EMTVEC= 30 !rEMULATOR TRAP (EMT) ##ERRORss 
00034 TRAPVECS34 ::"TRAP” TRAP 
005060 TKVEC= 60 ::TTY KEYBOARD VECTO 


a oe = ee ee bee Pe So eaves Ae aa ere SOA 


ie ieiestighibadneintiinestun ne 
7. CONT. TST-PT 2 MACYLL 271655) 30-NAR-75 18:59 “PAGE § i 5&9 cos3 


QCO64 TPVEC= 64 :; TTY PRINTER VECTOR 
000240 PIROVEC=S240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


ee 


ee 
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tRAP CATCHER | 


“3-3-3 
Lusty 


beta 


s- 


Us” 


“ye 


> +0 + 0 = b <b = po oe 


ted ers 


pe 


“> 
COnmcoc 


IWOO 


0.00000 09 09 C9 Oo 0 Co 
INNMAVo0O 


OT (9.000 ~ Ul 4 Gott) 


woo 


IOOUOIOe 
IOOOO8 


CUPP OPT UPR TUITE UIT eT UT Ue + &-+ o-+ ~~ b-~ 0+ & 0+ & oo 
test eerit ies TdT 


CHIC AOIL ITI OC9 OC) Oe 


wt OP an eo 


.SBTTL TRAP CATCHER 


.=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT™ 
> ¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
gassticoe”, aecinesates QO TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 s;SOFTWARE DISPLAY REG 
SWREG:  :WORD O SI SOFTWARE SWITCH REG! 


~S8TTL ACTI1 HOOKS 


pp RRERRARARARREER EELS ERASERS SEERA ALES EEE EEE LE SEES SERS SES FEE EESS 
;HOOKS meguired BY ACTII 


STER 
TER 


tye 


eet ;SAVE PC | 
SENDA s:1)SET LOC.46 TO ADDRESS OF SENDAD IN . 
“WORD. 20000 ;2)SET LOC.S2 TO 20000 
=SSVPC 3; RESTORE Pc 
.SBTTL STARTING ADDRESS 
004710 in SRBEGIN ;NORMAL START 
o04e74 IMP QEBEGINE (}JUMP TO SELECT DRIVE START 
004660 3nB JeBEGINI sJUMP TO NO OPERATOR TESTS START 


:#STARTING ADDRESS 200 FOR NORMAL STARTS 


s#THIS WILL TEST ALL RPC4’S ON THE SYSTEM A SINGLE ORIVE AT A TIME 

°o 

;#STARTING ADORESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 

o# 

s#STARTING ADORESS 220 WILL JUMP OVER THE TESTS REGUIRING AN OPERATOR 
;#RT THE ORIVE 





ne me me rr eee 
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NITIONS 


Ow 4 


COPTIC eT ene eC erCeseaTesferloneereesteseeatey 


CUITUTUITUT LITO t deo «0 +0 <b «9-0-9 ap 
3] 


1~5- 


+ + bb be pe ge 


oe bee bee fee aw be 


Mormon rrrnory 


GIGIGIGIGIGIGIGI 
0-0-0 (C0009 


Y LVM £ruM 


et ee eet et ed 


“J3~9"959"9~) 
torurorrorm 


4. ee Ee OIC IGIGIGIGIGIGCIGMHUTUNYD e 
OPO GOT (W008 OP OE Gone C000 IO On Lote (9. IO 0 Cotte ey ' 


PUPOTUPUTUPOTUTUTOTOTOTUTITUTUTUrer rites 


4 


~SBTTL MEMORY MANAGEMENT DEFINITIONS 
:*KT11 VECTOR ADDRESS 

MMVEC= 250 

;*KT11 STATUS REGISTER ADDRESSES 


SRl= 177 574 

SRe= 177576 

SR3= 17251& 

;*KERNEL “I” PAGE DESCRIPTOR RESISTERS 
KIPORO= 172300 

KIPDRI= 17230e 

KIPDRe= 172304 

KIPDR3= 172306 

KIPDRY= 172310 

KIPDRS= l7e3le 

KIPDOR6= 172214 

KIPDR7= 172315 

;*KERNEL “I" PAGE ADDRESS REGISTERS 
KIPARO= 172340 

KISAR = 172342 

KIPARE= 172344 

KIPARS= L72346 

KIPARS= 172350 

KIPARS= 17e3$e 

KIPARS= 172354 

KIPAR7= 172355 

21110 , 


ee re 2 ee ee ee 
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MNODEC=12-D2RJJ-A 
Pp 


IINVVOIOVOIGOA0000 
IMIONIOIOIONI0OOI000 


c 
if 


OMIOIIOOMIOIOIOOOOOt 
Os b= Be = b= hs 0h 0 hehe = bo be oo bo Be 0 ho bo 0 bo 


PUPUTUTOTU TUONO 8 bs bo bo bs hs os bs 82 bs bo 0 b+ bs 2 0 he = Bo be bo Bo hw Fh f= 0 fo pe 
o ENSRALHOS LMI CMO £OJMOO 


QAOOOVWOOWVOVMI000 
oul 


oO 


woco™) 
t-2-0- QOOONN SING COUNT ONO Ae GI GIGIGIGIUIUTUTUS— 6 b= + : 
foo 2Moe LIU 4 foe MONINN00 


qarururorurorororuroruru4@n 
O.0.0.0,.00000 
C.000 N@MulLecineO 
OOADAIVOWOVWOoVWOAINO 
OSoOIMOOO0O00000%0 


Oo £MVOM + 


001100 
ooo000 
soon 


s) 
ooceag 


090600 
200000 
0 


T76o? 000377 


, REOWS 
COMMON 





“6 FUNCT. CONT. TST-PT 2 
AGS ; 


~SBTTL CUMMON TAGS 


bp RRARARARRERAHHE REA HERE EE EAAR AREA KERERER Et LEAEREAE SESE EES AEEE ES 
:®THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;®USED IN THE PROGRAM. 


SCMTAG: — 
g . 


SGDDAT: . 


$8DDAT: . 


SAUTOB: . 


SINTAG: . 


SUR: “WORD 
SISPLAY: . 
SoS: 77 


MES: 
SESCAPE: 
$PELL: 


MeCY11 27(655) 


pan ot FOR ERRORS 


YONONOOr+-NHd0000000 
- 
w 


536 I BRO’ DA 
;;RESERVED--NOT TO B 


;;RUTOMATIC MODE INDICATOR 
:; INTERRUPT MODE INDICATOR 


YONOdOO0OOONO 


ow 
—s_ 
ww 


wD 


;;CONTAINS NULL CHARACTER F I 

;:CONTRINS # OF FILLER CHARACTERS 
;; INSERT FILL CHARS 
7: "TERMINAL AVAIL 


- APTER A “LINE PEED” 
ABLE" FLAG (81T<07>=QsYES) 
S THE ACORESS FROM 


tf 


QOOVOOKOOVOV000NND VBO.-wo 


FINED 

BER OF ITERATIONS 
PE ON ERROR ADDRESS 
FOR BELL 


a me em cr a ii el a ee 


cRIJ“A, REQNS/5 FUNCT. CONT. TST-PT @ MACY11 27(655) 30-NAR-76 18:59 PAGE 9 _ S&S 0057 
COMMON TAGS 
lgee ce ae ASCII 777 + OEE TAGE MARK 
lees 015 SCRLF Bakes (15> Oe EE RETURN 
i224 00001 SLF: ASCIZ <l2> birt NE FEED 
metereersrtertiecrerrcerereceesssrtetitrtrcrrer tt cererrrsnrerer 








eee 


ee EEEOEO————e 
i 
i 


MNDEC=12 


DIRITA. 


on 


CILIGIGIGIGIGIT 
UL) -* b= b= b+ 2 B+ + oh 
IP ULL GIT C).00 


GI) 
furo 


AI) 


LuGJGIGIt 
eet oth a i AY 
-C2.00) --10 


(NEG 


iets 


OGG) 


CIGIOI Cs GIGI GIGIOS 
Gorue--C.000 3 


Pll 


001226 


001252 


001254 





“DZRIJ-A, RFOY/S/& FUNCT. CONT. 


ERROR POINTER TABLE 


o42e44 
Os7134 


061404 
061724 


Ose- *3 


ee 
0S? 134 


042362 
0S7i34 


061404 
063724 
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-SBSTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN ae 
:THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND I 
: LOCATION SITEMS. cute NUMBER INDICATES WHICH ITEM IN THE Toe IS PERTINES 


:*N IF S$ITEMB IS O THE ONLY PERTINENT DATA IS 
: #NOTES: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS Pre ATNED AS foun: 
hed EM 3 POINTS 19 THE EREOR MESSAGE 
sa DH POINTS TO THE D HEADER 
4 OT t ESINTS 18 THE Bay 
:* DF ::POINTS TO THE BATA FORMAT 
SERRTE: 
s ITEM 
EM! :RPOY DID NOT INTERRUPT 
* WAITED ON SIT NID NOT OCCUR 
DH1 :P 
:WAT P 


BIT WAITED 





sRHCS1 CONTENT 
OTL ps SATFPe WAITET, WAITRE, $20087. 72! 
OF :0,0,0,0,0,0 
:ITEME 
EM2 : INTERRUPT ENABLE IT DOWN eur 
: SWAZTED ON BIT DID NOT OCCUR 

DH1 sPC 

*WAT PC 

BIT WAITED 

REG RODRESS 

REG CON TENTS 

sBHeSL C CONTENTS 
OT] :$ER RPC “Wal Ha WAITST, WAITRE, 3S80D87,CS1 
OF} ths 0,9, 6,0 0,0. 

; ITEMS 
EM3 irae DIO NOT iia WHEN 
ITED ON BIT Olu Ser 
DH} Pc. 
WAT PC 

tary WAITED 

REG ROR $ 

*RHOSI C CONTENTS 
OT1 : SERRPC “SAI TSS WALTRT, WAITRE, SSD0A7,CS1 
DF1 :0,0,0.8,0,0 


; ITEM4 





OWOONMULE 


& £OIGIGILICIO) 
O.0u o.oo 


001256 


001272 
001274 


001310 
001212 
001314 
001316 
001320 


001322 
001324 


MNDEC<1i-DZRJJ-A, REOWS/S na 


pzRITa.P1l ERROR POY’ 


O4E443 


057314 
061424 
061733 
042554 


057455 


061446 
061742 
042626 
057574 


061462 
061747 
042714 
0S7673 
061474 
061753 
042776 
057733 


061504 
061756 


« ValtT 


EMY 


DHY 


DTY 
DFY 


ITEMS 


EMS 
DHS 


DTS 
DFS 


; ITEME 


EM6 


CHE 


OT& 
DFE 


:; ITEM? 


EM? 
DH? 


DT? 
DF? 


; ITEMIO 


EM10 
DH10 


DT10 
DF1C 


;ITEML1 





MACY11 &7(6S5) 
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sWAITED ON BIT OID SET SUT 

;TIME IS IN ERROR 

s;TIME IS GIVEN IN 10 MICRO SEC 

; (DECIMAL) 

PC 

sWAT PC 

:BIT WAITED 

:REG ADDRESS 

TIME TH 19 NSEC Lat 
; SERR PC WAITPC WAITET,WAITRE, S8DDAT,WAITIM 
70,0,0,0,0,1 


:RHAS DOES NOT CLEAR BY 
SHOVING IN ALL ONES 


SREG. ADDR. 
;G000 DATA 

SRECEIVED DAT : 
HSERREC,RESADR, , SGDDAT, S2DDAT 


sLOADING RHER] FOR ALL 
UNITS DID NOT SET ANY BITS 
sit RHAS-NO UNITS PRESENT 


'REG ADDR 
"RECEIVED DATA 
: $ERRPC, REGADR, SBDDAT 


: | ah 


; SPECIFIED. REGISTER NONEXISTANT 
:50 ABORT PROGRAM 
TABDR. OF REG. 

: SERRPC, , TEMP L 


ths 


sgrore DRIVE HAS MOL BIT 
N RHOS] = 

; TEST NO 

:FRILING REG ADDR 


: CONTENT S_OF RHER] 
;SERRPC, STSTNM, $B8DADR,C 


.CS2,DS1,ERL 
:0,0,0,0,0,0,0° 





MNOEC*11-DZRIJ-A, RPOW/S/S FUNCT. 
A.P1l 


D2RIT 


001326 


081330 


O01: 332 
001334 


001336 


001340 


001350 


001352 
001354 


092356 
001360 


001362 
001364 





CONT. 


ERROR PINTER TABLE 


043045 


0$7733 


061504 


361756 


043152 


057733 


057733 


061504 
061756 


043377 
os7455 


C&144E - 


061742 


TST-PT e 
EM11 


DH10 


;ITEMe 
E 


DH10 


DT10 
OF 10 


;ITEMLY 
EM14 


DHS 


OTS 
DFS 


OS 


MACY11 e7 (655) 
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WITH SPINDLE POWERED DOWN 
RH @ SHOULD HAVE ONLY 
BC. NUMBER AND IR HIGH 


; TEST_NO 
:FATL ING REG. a 


: CON F RHER: 
t EoRREC SretNt SBDADR, CS$1,CS2,0S1, ER! 
:0,0,0,0,0,0,0° 


;AFTER A POWER UP WITH 
NO PACK ACKNOWLEDGE COMMAND 
:RHDS1 SHOULD HAVE MOL=1, V¥=0 


TTEST 
HERIL ING G REGISTER ADDR. 


: CONTENT 3 
iSEnmPc, STS1NH, EE0A0R, CS1,CS2,051,ER1 
30, , s , ' $ 


iAP TER A POWER UP WITHOUT 


OF RHERI 
RBS STSTNM, $BDADR, CS1,CS2,DS1, ER) 
:0,0,0,0,0,0,0° 


AFTER POWER UP RHCC 
;SHOULD BE=0 


REG. ADDR. 

:G00D DATA 

RECEIVED DATA 

; SERRPC , REGADR, $GDOAT, S2DDAT 


: owes 


SEG 0060 








oO 
0) 


n 


PERTOAT ORT eA eal eal eal eal eal eall 
eT NT Sey Sey ere ed et ed ed 


woo NOU Guru 


ee 






WeYiahit “A, REO4/S/6 FUNCT. CONT. 
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ERROR POINTER TABLE 


043451 


057455 


O6 1446 


061742 


043612 


O574S5 
061446 
061742 


043740 


057455 


Ob 1446 


061742 


044075 


057455 


Ob 1446 
061742 














BNE ACKNOWLEDGE CAUSED 


:GO0D DATA IS BEFORE COMMAND 
:RECEIVED DATA IS AFTER COMMAND 

















CETy ED DAT 
iSPeare REGADR, $GDDAT , SBDDAT 




















BA ERROR NO-OP COMMAND CAUSED 


:G00D DATA GIVES att 
;CONTENTS BEFORE COMMAND 
RECEIVED DATA GIVES REGISTER 
; CONTENTS AFTER COMMAND 























IVED DATA 
iSEceeC REGADR, $GDDAT , SSDDAT 











; DRIVE oe aie 
$6000 Data at WHAT SHOULD 


E 
:RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 























CEIVED DAT 
: SERRPC REGADR, $GDDAT , $BDDAT 


;READ~ IN cre GAVE AN ERROR 
0D HAS WHAT seu BE THERE 

RECEIVED. DATA HAS W WAS 

SAF TER COMMAND . 


IVED DAT 
iSEaae: REGADR, $GODAT , $SDDAT 








MNDEC=i2 
DZRIJA.Pi1 


001426 
001430 


001436 


00144C 
001442 
001444 


CO1446 
001450 


001452 
001454 


001455 


001460 
001462 
001464 


001466 


001470 
001472 
001474 


001476 
001560 


001592 
001594 


-DZRIJ-A, RPO4/S/& FUNCT. CONT. 
ERROR POINTER TABLE 


o44e44y 


OS7455 
O6144¢ 
061742 


044317 
OS7455 


061446 
061742 


044372 


057455 


061446 
061742 


O44S41 


O57455 
061446 
051742 


o44704 


057455 
D6 1446 
061742 


045065 
060i le 


061524 
061765 


; ITEM 24 

EM24 ;QFFSET COMMAND CAUSED AN ERROR 
:GO0D DATA IS WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
AFTER AN OFFSET COMMAND 

DHS 

DTS 

DFS 


sITEM 25 
E 


; ITEM 26 









TST-PT 2 MACY11 27(655) 30-NAR-76 18:59 PAGE 14 SEG 0062 
EMel ;RHCS1 CONTENTS DURING 
COMMAND WAS IN ERROR 
DHS 
OT 
DFS 








SITEM 22_ 
EMz2 sRHOS1 CONTENTS DURING 
:COMM ANS WAS IN ERROR 
DHS 
DTS 
DFS 
;ITEM 23 
EM23 ;UNEOAD COMMAND GAVE. AN, ERROR 






GOOD pain GIVES WHAT SHOULD 


1 Me: DATA GIVES WHAT WAS 
: THERE AFTER COMMAND 















Mes ;RETURN TO center LINE COMMAND 
:CAUSED AN ERROR 
; 000 DATR GIVES WHAT SHOULD BE 


i RECETVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 










EM26 3300 OFFSETS CAUSED AN ERROR 


‘CONT. OF RHCS1 
CONT. OF RHCS2 


. ; CONT ER3 
DT26  Seembc Cal 082, ,0S1,ERi,ER2,ER3 



















































| 
610 


OOMNOMONrrmrrmm~moco 
0 b—* 2 bs bb bh 
OWONWMU.£COe 


623 


ZRIJA.P11 


001506 045156 


001522 


001524 


001526 


001530 
001532 
001534 


001536 


001540 
00154e 
001544 


OO1S4E 


001550 


001552 
001554 


001556 
001560 


MNDEC-11-D2RJJ-A, RPO4/S/& FUNCT. CONT. 
ERROR POINTER TABLE 


057455 
061446 
061742 


045374 
O&D31e 


061546 


061775 


o4sHe4 


057455 
061446 


- 061742 


045671 


060212 
061546 
061775 


045776 


057455 
O51446 
061742 


046200 
060312 







TST-PT 2 


; ITEM 27 


EM27 


;ITEM 30 
EM30 


; ITEM 31 


EM31 


;ITEM 32 


EM32 


ITEM 33 
EM33 


; ITEM 34 
EM34 





MACY11 27(655) 
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sWRITE HEADER AND DATA 
; CAUSED pine aa CHANGE 
00D DATA GIVES W 


:$ 
;SHOULD BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMAND 


;WRITE HEADER AND DATA 
; CHANGED WRITE FROM BUFFER 


SWORD NO 

:G00D_ DATA 

:BAD DATA , 
; SERRPC, ERHORD, SGODAT, SEODAT 


_ READ DATA INCORRECT 


;READ HEADER AND DATA CAUSED 
IMPROPER REGISTER CHANGE 
; GOOD bara HAS WHAT SHOULD 


SRECETVED DATA GIVES WHAT 
:WAS THERE AFTER COMMAND 


;WRITE HEADER AND ally FOLLOWED 
sBY A READ HEADER AND DATA 
;CAUSED A READ/WRITE ERROR 


;READ DATA CAUSED IMPROPER REGISTER 
* 6000 DATA GIVES WHAT SHOULD BSE THERE 


sRECEIVED DATA GIVES WHAT WAS THERE AFTER rh: 








DZRIIA.Pil 


632 OO1f66 


637 9001570 
638 00157e 
639 001574 


642 001576 
S44 091600 


645 00160e 
646 001604 





6439 001606 


666 001620 
667 001622 
668 001624 





671 OO01626 


680 001630 
681 O0i632 


MNDEC=! 1=D2RJJ-A, 






RFOW/S/& FUNCT. CONT. TST-PT 2 
ERROR POINTER TABLE 


--OS1546 Df30° 
061775 DF 30 


; ITEM 35 
EM35 


04224 
057455 DHS 
061446 DTS 
961742 DFS 
ITEM 36 
046442 
060312 DH30 
061546 D730 
061775 DF30 
;ITEM 37 
046517 EM37 
057455 DHS 
O61446 DTS 
061742 DFS 


046734 

057455 DHS 
Ob1446 DTS 
061742 DFS 


047143 


057455 
Ob 1446 


MACYL1 27(655) 30-NAR-76 18:59 PAGE 16 SEQ 0064 


; 
. 
9 
. 
$ 


; ITEM 40 
EMYO 


; ITEM 41 
EM41 


;HERE LOCKED OUT BY 
: BUT TON 














;WRITE DATA COMMAND eee 

; IMPROPER REGISTER CHANGE 

;GO0D DATA GIVES WHAT SHOULD BE THERE 
:RECEIVED DATA GIVES REGISTER 
CONTENTS AFTER WRITE DATA 

















SMRITE DATA COMMAND CHANGED 
:WRITE FROM BUFFER 

















3 BEEK COMMAND CAUSED AN 
: 6000 Ore GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER SEEK COMMAND 















ITE CHECK CAUSED AN 
STHPROPER REGISTER CHANGE 
3 GOOD eee GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 















;LOCKING OUT WRITES BY WRITE 
sLOCK BUTTON CAUSED IMPROPER 
SREGISTER CHANGE 

; 6000 DATA GIVES WHAT SHOULD 


:BE THE 
RECEIVED DATA give? WHAT 
WAS THERE AFTER WRITES 









oct 


to -C 00” MUI Ete 


‘rman 


MOO Ot OOOO 


10 6 Gal 


ir 


oO 4 


iM AMIMIAMIMIMIMI MI MIAMI AI Alt 


pr 
+} 090 eh 
ote 


eet nee ee es 


7 oe ee oe 
Ue C0 JOU Sue 


UU Ue. 


paired sete te ds tote te 8 “a 


mu 


-) 





MNIE Se ee =-P"Ry -3 


ees ese te « 


ba) 75 
OIEIIS.P ll 


COLE 


mem: 70 
++ 


SiE7e 
ia 1674 


COLE7E 


MACYLL 27 (655) 


4r 
GIGI) 


oor 
1 - 
moo 


NL 
anna 


woe 


ee ee ee ee ee 
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TO WRITE WITH LAIT 
wer IMPROPER 


TIN 
Ou 

R CHANGE 

fs SIVES WHAT SHOULD 
E 


oS 


“a 
4 


Co -4e-4 


eee 


rom 
~DD 
-4- 
P Fatt 3 


mx Dre + 


ae ae | 
—_ Ds 


FAV ANE Ce eo 


Arise 2 

4 Dc ww 
$m 
1) =o Fhe " 
~4 AVI) 40-4 

Lh ee AA) 

ee 41-4 


4 


ENGBLING WRITES BY WRITE LOCK 
BU RO 


TON CAUSED AN E! 
1000 2 "oly GIVES WHAT SHOULD 


TH 
:RECEIVED DATA SIVE 
: THERE AFTER WRITE 
3BUT TTON ENABLED WaIT 


WHAT WAS 





; TRANSEERRING ON AST BLOCK IE. CYLINDER 
10, SECTOR 21 

cause IMPROPER REG ¥Sr28 

; $000 Bl GIVES WHAT SHOULD 


eT 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER TRANSFER 


;DATR READ FROM LAST 


4 iH 


tut 


U 


hata} 


i 
“Sr 


3~9~9~9~9~9~J- 


PATO ATi ATi Ari arial caleate ayes 


SN GIGN 


“a 


4 


4.0010) O).000 IOP O16 Gone 09. 0M IU ee 


+ 


Pi) 


001700 


801702 


Mou 


— RFOS 5-6 FUNCT. 
ERROR POINTER TABL 


060312 


osruss 
Csisss 
D&174=2 


OS 1446 


MACYL1 27(655) 


Nr 
wut 


oo" 
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; TRANSFERRING FROM Lo al 
SECTOR CAU SED IMPROPER 
REGISTER CHANG 
: 6000 ena GIVES WHAT SHOUL 


RECEIVED DATS GIVES WHAT WAS 
THERE, BE TER ATTEMPTED 


ance ah NONEXIST 
:$ A ERROR 


; UFFER 
Rect tues DATA GIVES WHAT AS 
LIN BUFFER AFTER TRANSFER 


:GIVING ILLEGAL ye. CRUSED 
; IMPROPER REGISTER CHANGE 
: 3900 DATA GIVES WHAT nSauo BE 


SRECETY ED QATA GIVES REGISTER 
:SONTENTS AFTER ILLEGAL FUNCTIO 


REG. Boek. 
SRECEIVED. rok 


ILLEGAL FUNCTION 
: SERRPC RESADR, $GDOAT, $SDDAT, ILLES 


He 0,0, ‘ 


;WRITE DATA ON NONEXISTANT 
:SECTOR wget IMPROPER 


R CHANGE 
t GCOD DATA’ Bits WHAT SHOULD 
3 Be THERE 
RECEIVED DATA GIVES WHAT 









i> 3-3-4 
Ol 
wm 


Set hy 5 


200 “IOP On £2 Ge (9000 


HCO OD CHOU: 
*COOoououoo 


ST er er ee 


cocococD CO COCO cD Co CoOcD CO.CD 00 00 00 00.00 00 00 CO CO CD 0D CO 0D C00 CO CD CO COON CD COCO ONO 


£8 2 GI GIGI OIG CI GIGI GPU TOPUPUTOTUPUTUTUTU & b+ o-+6 


quar C.000 OP On £6 Gone C.000 SOP UO Gof C9. 00 0 U1 Gane 09 


1-8, RON S/8 FUNC 
ERROR POINTER TARL 


OS2403 
o6C3le 


MACY11 27(655) 
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;WAS THERE ~— ATTEMPTED 
WRITE OAT 


;READ HEADER AND DATA SFTER 
3A SEARCH CAUSED AN ERROR 


fd gd OPERATION WITH 
:INVAL ID_ADDRESS "wae ae 

i NEROPER REGISTER NGE 
34000 vere” GIVES Mat "SHBuLo 


SRECEIVED DATA GIVES WHAT Was 
:THERE AFTER OPERATION 


'D 
: 6000 DATA GIVES WHAT S5uL0 


THERE 
:RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER OPERATION 


;DATA READ WITH AN EXPECTED 
;RDORESS CVERFLOW ERROR IS 
; INCORRECT 

ih WORD NO i TO 260 SHOULD 


SWORD NOS 261 TO ~208_ SHOULD 
NOT CHANGE CUE TO READ 


sNITH MRONG DATA COMMEND 


Q CHAN 
: B00D DAT - GIVES WHAT SHO OULD BE 








man 


ue-e- 


cococococoCcocD 
te 


ADDO 
NCP ULE Oo 





MNDEC- ig 2RII- “8, REOW/S ; 
prRyya.P ERROR POINTER tage 


OS74SS 
051446 
061742 


053726 


060563 


os4421 
OS7455 
Ob 1445 
061742 


Os4474 


ITEM 64 
EMS4 


“J6 


. TST-PT @ MACY11 27(655) 3O-MAR-76 18:59 PAGE 20 


ERE 
i REDEVED DATA GIVES WHAT WAS 
: TEENE SBE AFTER ATTEMPTED DATA 





DHS 
OTs 
DFS 
ITEM 60 
EMSO sATTEMPTING TO MODIFY REGISTER 
:OURING AN OPERATION CAUSED 
Pana REGISTER CHANGE 
Wi GIVES WHAT SHOULD 
HRECETVEE DATA Gives ant WAS 
: THERE AFTER OPERATION 
“WAS COMPLETE 
DHED :PC 
:G000 DATA 
:RECEIVED DAT 
:MODFING REGI ¢ TER 
a ; SERRPC REGADR , $GDDAT, $BDDAT, SSDADF 
Bu :0,0,9,0, 
sITEM &1 
ENS! spevice NOT AVAIBLE BSEFOR COMMAND WSS TO 8 
DHE. 
- iPC OF JSR 
DTé1 Seam .PCISR, SBDADR 
DFE! 0.0.0 
sITEM 62 
fe! :DE\ fICE NOT AVAISLE BEFOR COMMAND | ( GIVEN 
vrae IPE OF 138 
HOS1 WAS 
DTb2 pte PoISR, SEDADR 
Brée :0.0,0 
ITEM 63 
EME3 s;RHOSIL CONTENTS DURING 
: COMMAND WAS IN ERROR 
DHS 
OTs 
DFS 


;RECALIBRATE COMMAND wee 
TIMPROPER REGISTER CHANGE. 
:G00D DATA GIVes WHAT SHOULD BE 


em ee oe ee ee ee ee 





898 


if) 
LD 
fy 8) 


Oot 
C9090) 
fipe--(9 


903 


J 


CONN ULE ote OOO ULE Gotu Ow 


MNDES= 1g P2RIJ- “8, RPOY SG FUNCT. CONT. 
ERROR POINTER TABLE 


gS7455 


063656 
062033 


OSS 146 


060312 
061546 
061775 
oss42e2 


MACY11 27(655) 
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THERE. 
Ret FIVED DATA GIVES WHAT WAS THERE 
RETER SoMnane 


1 all FAILING 


; TEST _NO 

:CONTENTS OF RHCS! 
:CONTENTS OF RHAS 
;CONTENTS OF Ree as 
:0,0,0,0,0 


;HEADER AND DATA COMMAND 

:FOR BEAD S LEE ITON TEST 
CAUSED AN aS 

sRHDST GIVES RNaT TRACK 

;WAS BEING WRITTEN ON CYLINDER 0 
SECTOR 0 


HCS. 
EE ost en »ER2,ER3,CS1,CS2 


:READ_ HEADER AND DATA, ERROR 

SIN HEAD SELECTION TES 

:FIRST FOUR WORDS GIVE HEADER 
SNEXT WORDS ARE DAT 

£8500 DATA WORDS. GIVE 

Te TR TRACK, NUMBER’ IN 


4,5 , 6,7, 


;READ HEADER AND pars ERROR 
;IN BEET ERENCE LINE TEST 


ae WOR DN os. 1-4 GI\ ‘E 
= 


WORD NOS. 5-260 GIVE DATS 
:WHICH I5 THE CYLINDER 

















DZRIT 





952 
353 
8s4 
3ss 
Sssé 


Ssr 


Cs 







fie C noe 


0.000.000 


ICO OOOO MOO OUT 


oom 


Oooo 
NOULLG 





1-3-9-3 
Lore 


00000 revere) 


+ 





u 


of 





WOO.O.Ou ow 
00.0.0000000 coc 
frO.0c No 


o 
0 
™ 


092132 


002134 


002142 
CS2144 


Oooo Oo 
Ooo © 
furor fu 


on ee 


ey iab  epedit REOY. S$. 5 FUNCT 
Pll ERROR POINTER TABLE 


061790 


5g 2054 


OS&507 
OE1e7? 


36170 
pesos 





TST-PT 2 





CONT. 


re 4 EM72 


s;ITEM73 
EM73 


—MACYLL 27(655) 
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rane OPI CAUSED IMPROPER FEGISTER 


;G00D aie GIVES WHAT SHOULD 


RECET VED CATA GIVES WHAT WAS 
; THERE AFTER 3 TNOEX PULSES 


sPC 

sREG. pon 
SRECEIV 
: SERREC 


30,0 ,0 


ED DAT 
a BADR, $GDDAT , SSDDAT 
; THERE WAS AN ERROR 


:AFTER & WRITE HEADER 
AND DATA COMMAND 


RH \ 
:SERRPC,CS1 


: CS2,081,DST,CA,ER:,WC 
:0,9,0,0.9, 13a 


;READING OVER 3 INDEX 
:PULSES CAUSED SC 


;REQDING OVER 3 INDEX 
PULSES CAUSED OF! 
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009001 


002002 
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Lp PRRRRARER ELSA SERS SLA ASSL SAAS ESA RLF RASS SSL E SES FLALES LEZ AL ALS 


:RHL1 REGISTER BITS 
.. TTSRHRSSSSSLESA ESAS SELES SLES ALS SSF LA SSF FFSLSFE SSF FASS FLA LFA SSSS 







RPVEC: 254 ;RPO4Y VECTOR ADDRESS 


GISTER (RHWC) 
S CALLED Sy BIT NUMBER 


TER (RHBA, 
D BY SIT NUMBER 





;CONTROL AND STATUS REGISTER & (RHCS2) 








1 sUNIT SELEC 
ro ;UNIT SELEC 
L>7= 4 sUNIT SELEC 
BRI= 10 ;8US_ ADDRES 
UNIB= ¢0 ;UNISUS B 
CLR= 40 :CLEAR (8 
IR= 190 ; INPUT _READ 
ORs e00 ;OUTPUT READY (BIT 
MPE= 400 ;MASS BUS 
MxF= 1500 sMISSED T 
PGE= 2009 PROGRAM E 
NEM= 4000 NON EXISTANT MEMORY 
NED= 10009 NON EXIST 
UPE= 29000 ;UNIBUS PARIT 
WoEs 40000 sWRITE CHE 
DLTs 100006 DATA LATE 






HD 


R (RHD8) 
BY SIT NUMSER 


mm ee 





MNO 
nots 


ICICI Acne 
~C.0tD- EOE | 


Rest ote rae 


Join ~sru eie 
Ue 02.00 “30° Ul 6G 


“I-34 
LO 


a ae INIMOO MI MIOOC41 
“ot 


(mo~) 
Gotu Ow 


++ 0b <b + 0-9 b= 0h 8 <b 9d +m +b 0b 2d bs + he 8h pepe 


bee 
Oooo 


cD 
a 


6 


. 
to 
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20.0000 00000000 
Gur O.wms) 


PRUE 


ey eee ed ed ed ed Oe ed eed ed ed eed ee ee 
8-88-88 OOIOOOVOOOMNIOOO 


OOoNoOOoOwWwWw 
in canme-C.000%) 


JJ“A, REQ4/S/S FUNCT. CONT. 
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OoO0d00o 


BSBSSseee 
oo 


o40000 
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s RRFAATALA LAL LARS LEE HALE RELA LLASALHELELELS LALLA SLAF SELF SASL SSF FSS 


iReOS REGISTER BITS 


s RRERKPRE 2 


sCONTROL AND S 3TUS 1 AOGISTER. 
GO0=s 1 

IE= 100 
RDY= 200 
R1o= 400 
Al7v= 1000 
PSEL= 2000 
DVA= 4000 
MCPE= 20000 
TRE= 40009 
SC= 100000 
:STATUS REGISTER (RHUS1) (801) 
DFFS= 

DFF20= : 
DIGB= 4 

gRy= 10 
CLé4= 20 
DELl= 40 

VVs 100 
DRY= 209 
DPR= 400 
PROG= 1900 
LET= 2000 
WRL= 4000 
MOLs 10000 
PIPs 20000 
ERR= = 


0009 
ATR= 100000 
ERROR REGISTER #01 (RHER1) (#02) 


LF 1 
ILR= e 
RMR= - 
PAR= 10 
FER= 20 
WCF = 40 
ECH= 100 
HCE= 200 
HCRC= 400 
ACE= 1000 
IRE= 2000 
WLE= 4000 
OTEs pee 
OPI= 200 
UNS= 40900 





: INVALID ADDRESS ER NOR 
sWRI Pete 
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“$RRERERAAALAA SSAA AE RAE SL LFA LE LE RELA AFFLEAPLLEF FS 


(#00) 


;G0_ (SIT #0) 
; INTERRUPT ENABLE ( 


TRAN NSFER ERROR (877 
SPECIAL CONDITION (8 


;ORIVE FORWARD S"/SEC. (BIT yt 
me FORWARD 20"7SEC. (BIT 
9 


REVERSE (BIT #3) 
FFERENCE LESS THAN &4 (BIT #4) 
FFERENCE EQUALS 1 (BIT #5) 


‘rast cECTOR TRANSFERRED (SIT #10) 


SaRITE LOCK (BIT B13) 
;MEDIUM ON-LINE 


(BIT al2) 
POSITIONING “GERATION Th PROGRESS (81 


:COMPOSIT ERROR 
ATTENTION ACTIVE (SIT #15) 


;ILLEGAL FUNCTION (BIT 80) 
ILLEGAL REGISTER (BIT #1) 


REGISTER nSOTE Ieation REFUSED (BIT 


'HEADER COMPARE ERROR (SIT a7) 
SHEADER CRC ERROR (BIT 8@) 
SADORESS OVERFLOW ERROR (SIT 


: I 
: OPERATION TNCEMELETE ‘art 512) 
s;ORIVE UNSAFE (BIT #14) 


VE TO ee GAYRD BAND att 2) 





MNDEC-11-D2RJJ-A, RPO4/S/& FUNCT. CONT. TST-PT 2 MACYLL 27(655) 30-NAR-75 18:5 
D2RIIA.P11 ERROR POINTER TABLE 
o 190000 DcK=  1u0000 sDATA CHECK ERR 
:MAINTAINABILITY REGISTER (RHMR) (#03) 
990091 OMD= J sDIAGINOSTIC MO 
ejalalaler MCLK= 23 !MAINTAINABILIT 
ajelufalayy MINX= 4 :MAINTAINABILI1 
990019 MSTCK= 10 :MAINTAINABILIT 
p0c526 MRD= 20 :MAINTAINABILIT 
999940 MWB= 40 :MAINTAINABILIT 
60150 D7Sy= 1000 : MAINTAINABILIT 
SATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 
po000 ajo= 1 sDEVICE O (BIT 
90069 ATi= 28 :DEVICE 1 (BIT 
600904 aTz= 4 :DEVICE 2 (BIT 
509019 aTs= 10 :DEVICE 3 (BIT 
900029 aTu= 20 :DEVICE 4 (BIT 
599040 ats= 40 :DEVICE 5 (BIT 
950198 até= 100 :DEVICE & (BIT 
090286 aT?= 200 =DEVICE 7 (BIT 


;DESTRED SECTOR/TRACK ADDRESS REGISTER (RHOST) 
;ERCH SIT IS CALLED BY BIT NUMBER 


;DRIVE TYPE REGISTER ‘RHDT) (#06) 
;ERCH BIT IS CALLED BY BIT NUMSER 


;LOOK-AHEAD REGISTER (RHLA) (#07) 


4 EE Ee EE EB WII LI GIWIGIGIGIGIGITVULUPUTUPUPTULU TUT IU bb + + 9 
—O.000 NO OE Goto (1.00 NOU Gof OOM NOU OTe OOM IOUS Of O00) 


+ = bb 0+ bb + b= OB 2 2 2 eB 0 0 2 2 bo 0 be = 8 0 + b= 8+ 8 bo 9 po pe 9 ge 
Os = bs Bs bs 0s ss ss 8 8 8 bo B88 Bs be be bo ho 8 pn ho 8 ho 8 he 8 bo ho 8 hh ha ho ho pe 


5 090001 EXTl= 1 ;EXTENS 
5 000802 EXTes ;EXTENS 
Se 000004 EXT4= 4Y ;EXTE 
S3 000010 ExT10= 1 

S4 000020 ExTeD= 2 

SS 000040 EXT4O= 

Sé 000109 S¢l= 1 

57 000200 SCe= 2 

ce 000400 SC4= 

$3 001000 $C10= 








9 PAGE 2s 


OR (BIT 15) 


(81) 


mmmm—++~$+AH 4 
creer 
3s 
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OZRIIA.P1! ERROR POINTER TABLE 





1160 002000 SC20= 2000 ;SECTOR COUNT FIELD 4 (BIT #10) 
1161 004000 TRK1= = =4000 ; TRACK FIELD 1 (BIT #11) 

1162 0.0000 TRKe= 10000 ;TRACK FIELD 2 (BIT #12) 

1163 020900 TRKY= 20000 ;TRACK FIELD 3 (BIT #13) 

1184 040090 TRK1O= 40000 ; RACK FIELD 4 (BIT #14) 

AtPP 190000 TRKe0= 100000 ; TRACK FIELD S (BIT #15) 

ibe ;ERROR REGISTER #2 (RHER2) (#10) 

4a 

1189 00009: WOU= 1 ;WRITE CURRENT UNSAFE (BIT 80) 
1170 000902 CSF= 4 ;CURRENT S (BIT #1) 
1171 200004 WSU= 4 ;WRITE SELECT UNSAFE (BIT #2) 
L172 000010 CSU= 10 ;CURRENT SWITCH UNS (BIT #3) 
1" 3 000920 MSE= 20 ;MOTOR S C R (BIT #4) 
1174 000040 TOF= 40 ; TRANSITIONS DETECTOR FAILURE (SIT #5) 
1175 000100 TUF = 100 ; TRANSITIONS UNSAFE (BIT_ #6) 

1176 090200 FEN= 200 ;FAILSAFE BLED (BIT #7) 

1177 000400 WRU= 400 ;WRITE READY UNSAFE ( #8) 

1178 001000 MHS= 1000 ;MULTIPLE HEAD SELECT (BIT 89) 
1179 002000 NHS= 2000 ;NO_ HEAD SELECTION (BIT #10 

1180 004000 IAE= 4009 ; INDEX_ERROR % 

1181 019000 VU30= 10000 ;SOVOLT UNSAFE (BIT #12) 

1182 020000 PLU= 20000 ;PLO UNSAF # 

tee 100300 ACU= 100000 ;ACUNSAFE (BIT #15) 

ie ;OFFSET REGISTER (RHOF) (#11) 

1187 000001 OFeS= 1 ;OFFSET 2S MICRO INCHES (BIT #0) 
1188 008092 OFS0= e ;OFFSET SO MICRO INCHES (SIT #1) 
1189 000004 OF 100= ;OFFSET 100 MICRO INCHES (BIT #2) 
1190 000010 OFe00= 19 ;OFFSET 200 MICRO INCHES (BIT #3) 
i191 000020 OF4YO0= 20 ;OFFSET 400 MICRO INCHES (SIT #4) 
i135 000040 OFs80S= 40 ;OFFSET 800 MICRO INCHES (BIT #5) 
1194 000200 OFREV= 200 ;OFFSET NEGATIVE (REVERSE) (BIT #5) 
1195 002080 HCI= 2000 ;HEADER COMPARE INHIBIT (BIT #10) 
1196 004000 ECI= 4000 sCRROR CORRECTION CODE INHISIT (SIT #11) 
sta 010000 FMT22= 10000 ;FORMAT BIT (BIT #le 

1195 ;DESIRED CYLINDER ADDRESS (RHCA) (#12) 

eat ;EACH BIT IS CALLED BY BIT NUMBER. 

1e0e 

1e03 





205 : ;CURRENT CYLINDER ADDRESS (RHCC) (#13) 
1206 ;EACH BIT IS CALLED BY BIT NUMBER 






;SERIAL NUMBER REGISTER (RHSN) (#14) 
;EACH IS CALLED BY BIT NUMBER 
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SEQ 0075 
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1214 

1215 

1216 

iste ;ERROR REGISTER 803 (RHER3) (815) 

1e19 000001 PSU= l ; PACK yy UNSAFE (BIT #0. 

1220 000002 VUF = 4 s VELOCITY UNSAFE (BIT #1) 

leel He 010 UWR= 10 ANY UNSAFE EX NCEP READ/WRITE (BIT #3) 
lees 0080 PRE= e0 DISK PA “7 ROTATION ERROR (BIT #4) 
le23 900040 ACL= 40 AC LOW (BIT #5) 

lee4 000100 DCL= 100 ;0C LOW (BIT #6) 

lees 340900 SkI= 40000 : SEEK INCOMPLETE (BIT #14) 







leeb 100000 OCYL= 100000 OFF CYLINDER (BIT #15) 








€ 
i2e9 

£230 ;ECC POSITION REGISTER (RHEC1) (#16) 
issih ;EACH BIT IS CALLED BY BIT NUMBER 







1B3e SECC PATTERN REGISTER (RHEC2) (#17) 
1539 SEACH BIT IS CALLED BY BIT NUMBER 










DZRIJA.P 11 


1289 02252 


3 
3 
3 002320 
3 
3 
3 
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000000 


000000 


o00000 
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o00gm 
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;DATA BUFFER 
:WORD COUNT 
:BUS ADDRESS 
;CONTROL AND STATUS 2 








;CONTROL AND STATUS 1 


sERROR # 
tESTRED SECTOR/TRACK ADDRESS 
isaron 8 #2 


:DESIRED CYLINDER ADDRESS 


ROR 
ATTENTION SUMMARY 
sMAINTAINABILITY 
DRIVE STATUS 
:ROTVE Ty DE 
;SERIAL NUMBER 
sBCC FO poet nen 


CC PATTERN 
CURRENT CYLINDER ADDRESS 
: LOOK-AHEAC 
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1g 
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sRESERVED LO 
REGADR: 
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CATIONS FOR FLAGS AND INTERNAL PROGRAM CONTROL WORDS 


i SAVE REGISTER ADDRESS HERE 
SAVE ERROR WORD NUMBER HERE 
fest N UMS 


THs. Mist BE WAVER THT tBevEC’™ 
LEFF ECTIVE. 


;OFFSET VALUE USED IN OFFSET TEST 


2c. 3 BLOCK 19 SAVE REGISTERS 
SAVE LldK AHEAD REGISTER &7T END OF Of 
SAVE CURRENT CYLINDER REGISTER AT END 


; TABLE FOR ATTENTION BITS 
;ATTENTION TABLE 


ATABLE: .BYTE 


sRESERVED LOC 


UNITS: .BLKW 
Hae WORD 
OUNTT: HORE 
NUNIT: .WORD 
NOPUSH: 0 
SELECT: .WORE 
UNITSL: .WORD 


ERFLGS: 0 
FIRST: 0 


RPCE: 
RH7O: 


o 


oO 


oe em et re eee 


1,2,4,10,20,40, 100,200 


ATIONS FOR UNIT SELECT 


: sTHIS IS FILLED WITH -1 
0 SUNTT UNDER TEST 
6 ;NUMBER OF UNITS PRESENT 
SUSED TQ KEEP TRACK OF UNIT UNDER TEST 
O :USED TO DETERMIN IF THERE ARE MORE 
;THAN ONE UNIT 
;ALL ONES INDICATE NONE OF THE OPERATOR 
SINTERVENTION TESTE WILL BE PERFORMED 
9 SALL ONES INDICATE UNIT TO BE SELECTED 
SUNIT NO. SELECTED 


;ERROR FLAG 


:IF ZERO WILL TYPE HEADER 
IF ONES WILL NOT TYFE HEADER 


;DEVICE TYPE FLAG 


3TF 1, PROGRAM IS RUNNING ON AN RAO 
;IF 0, PROGRAM 18 ON AN RALL 











MNES. L1-DIRII-8 RFS 


DIRITA.P IL 
i402 o04642 
1493 

1404 

i$0S OO4644 
140 OSO4E46 
1407 

2408 904650 
$409 O0¢5 


ATTENT: 0 
TOTALAT: 
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;"RUN’ LINE DELAY COUNTER TC BE USED 
‘WBTLE THE SILO IS FILLING 


sATTENTION BIT FOR PRESENT UNIT 
;TOTAL ATTENTION BITS 


Oo 


Ononono 
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l ORD | 


DZAIIA.PLL 
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004624 
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##% DIAGNOSTIC CODE ### 


SETUP TESTS 
8-1, 2#NOPUSH 
DaSELECT 
START 
#-1,98SELECT 
J#NOPUSH 


START 
aeSELECT 
asNOPUSH 


MP OVER prerares REQUIRED TESTS 
5 NIT 


; JUMP QO 
300 NOT SELECT U 

;SELECT UNIT 

300 NOT JUMP OVER ANY TEST 
;00 NOT SELECT UNIT 

:D0 NOT JUMP OVER ANY TEST 

: NORMAL RUN 


RESET 
~SBTTL_ INITIALIZE THE COMMON TAGS 
;;CLEAR THE ey ~s reas 


C 


(Re) 
=e »R& ;;DONE? 


“35.7 
#SPWRON, DBPWRVEC 
B20, DHPARVECHE 


SESCAPE 


a SERMAX 
“rahe st 


KERRVEC 
#64$ JaERRVEC 


eDSWR, SWR 
sDDIS®, DISPLAY 
8-1, 3SWR 


65$ 


s65$, (SP) 


. CONT. TST-PT 2 
TEMP STORAGE 
SBTTL 
SBTTL 
S8STTL 
SBTTL 
OO4624 BEGINI: MOV 
CLR 
: EF 
004625 BEGINe: MOV 
CLR 
BR 
BEGIN: CLR 
CLR 
START: 
MOV 
CLR 
CMP 
aby 
s;INITIALIZE A FER. iss K+3B 
009020 MOV 
00052 MOV 
000039 MOV 
000932 MOV 
009034 MOV 
O00S3& MOV 
090024 MOV 
o0eo2& MOV 
CLR 
CLR 
091115 MOVE 
001106 MOV 
661110 MOV 
33SI 
;;EQUAL TO A 
MOV 
990004 MOV 
061140 MOV 
OOlise MOV 
174030 CMP 
BNE 
38 
54S: MOY 
iS RT! 
001140 658: MOV 


aSWREG, SWR 


AREA 
eR LOCATION TO_BE CLEARED 
CLEAR MEMORY LOCATION 


LOOP _BACK IF NO 
SETUP THE STACK POINTER 


eee. S VECTOR FOR SCOPE ROUTINE 
"ARETE VECTOR FOR ERROR ROUTINE | 
P_TRAP aVECTOR FOR TRAP CALLS 


E 
SPOWER_FAILURE VECTOR 
site gL? 
;; INITIALIZE NUMBER OF ITERATIONS 
;;CLEAR THE ESCAPE ON ERROR ADDRESS 
7;ALLOW ONE ERROR EST Z 
ieee Tee THE LOOP PRDGRESs FOR SCO 


LPERR T 
2 FOR ; seatiods SWITCH REGESTER. IF NOT FOUN 
AL -1", SETUP FOR A SOFT Rac’ SuiTcy REGISTER. 
(SP) :;SAVE ERROR VECTOR 


3; SETUP E SwI 
!tRND A HARDWARE Distr ay REGISTER 
s3TRY TO REFERENCE HAROWARE SiR 
:BRANCH IF NO TIMEOUT TRAP OCCURRED 
STBND THE HARDWARE SWR IS NOT = —1 
;;BRANCH IF NO TIMEOUT 


;;POINT TO SOFTWARE SUR 








=j- ~j-~g- y* ’ ’ ’ 
£63fe-OO.0to- 10" 


oo 


2000 NOON 6 ome C.D NOU Gate 


*b-+b-+0-<0-+6-+ 6-0-8 (ICI LIOO00) 


0 80s hs 0 2 bs 0 + et 2p 
CRUNUNONONONON ONION ONT ONTO OT ONT ONT OO OUT ee oe 
0 


oe 


“li sDoRIJ-A, 
333° Pi 


Ovoo00no 
OO000 
CNUs 


oT 


p053! 

005280 
095250 
505355 
oos4e4 
cos444 
pos4s0 


p05s40 
555540 
Oo5S44 
oose42 


g0S6+42 


OOSE4E 


005774 
005774 


PALANS 





Qler3? 
Qieb37 


s5045e 


104400 
O00436 


104400 
000430 


104400 
000417 


012737 


005737 


RON /S/§ FUNCT 


INITIALIZ THE aaMMON tage 


Q00174 O0l14e2 
0004 


9000 
000200 000036 
902165 
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#DISPREG, DISPL 
(Se )4 S OSERAVES” RESTORE ERROR VECTOR 
: SET PROCESSOR STATUS TO 0 ro 

1200, BETRAPVEC+E i TRAE PRIOR ITY 
dak :GET RP VECTO a’ ebores 5 

sRPVECT, (RO)+ :TH Is" IS FOR UNTIMELY INTERRUPTS 

40, (RO) sREOH INTERRUPT SERVICE ROUTINE 
PRIORITY 

PC, J#STKINT watt oe THE TTY KEYBOARD 

dae IRST :IS THIS FIRST TIME ROUN 

1$ :00 NOT GIVE HEADER IF NOT. 

25 ‘GIVE HEADER IF 5 

DeSND1 :SKIP OVERALL PROGRAM HEADER 

68¢ | 53 Ure Asciz STRING 

b7g °GET OVER THE ASCIZ 

(15><12> °RPO4, 56 *BENCTIONAL CONTROLLER TEST, PART II - DZRIJ-A? 
70$ s;TYPE ASCIZ STRING 

695 GET OVER THE ASCIZ 

Cis) <12> REVISION 21-MAR-76/<15) 12) 

4728 $3 Tye. ASCIZ STRING 

15 :GET OVER THE ASCIZ 

(15)<12>ALL OCL'S UNDER TEST MUST SE LOCKED ON CORRECT PORT/ 
4748 rs TYPE. ASCIZ STRING 

>3¢ E THE ASCIZ 

(15) <12>/IF CHANGES are. BE OUTBED ON PORT SWITCH, A CYCLE UP/ 

76S ;s TYPE aSCIZ STRING 
ag :GET OVER THE ASCIZ 

(=> «12> /SEQUENCE TS REQUIRED FOR STROBING THE PORT SELECT FLOP/<15> «12> 
4288 ::TYPE ASCIZ STRING 

7g : GET OV MER THE ASCIZ 

«15><12>/ALL OCL’S NOT UNDER TEST MUST BE SWITCHED OFF’. 33s 


805 3; TYPE eee STRING 
T ASCIZ 


$9$ OV 
(15> <12>/0R LOCKER GN THE OTHER PORT 


#-1, a8F IRST ;NEXT TIME DO NOT GIVE HEADER 


ra VALU Ba’ SOF TWARE SUT TRE REGISTER 


;ARE WE RUNNING UNDER XXDP “ACT? 









SES C082 





re rr ee ee 


07 


NNO ECS a et a 5/5 FUNCT. CONT. TST-PT 2 MACY11 27(655) 30-MAR-7& 18:59 PAGE 25 
DIZRITA.P BEY VALUE FOR SOFTWARE SWITCH REGISTER " 
133 Saat 334598 001140 000176 at Bie SSWREG HSoe Tuer sutton REG SELECTED? 
15 Sbesie Beiops OT RN SNe ee i BRANG siwreres 
S23 006020 i0440S GTSWR ert chet SUR SETTINGS 
1554 508022 00403 Be 655 
1525 O0&024 llevar O00001 O01134 &4$: OVE 81, AUTOR 3:SET AUTO-MODE INDICATOR 
152g 008032 B58: : 
1259 06032 032777 O10000 173100 RH7OCK: BIT #SWl2,3SWR LOOK TO SEE TE USING RH70 
1529 aia aat 991403 BEQ 3$ sIF SWl2e = 0, SKIP NEXT 
$30 D509 SLETSP irr777 ooweHO MOVs #=1, 38RH7O rIF Swis = 1) CU IS AN RH7O 
S54 VU S33: 





ee ee ee ee eee 


ZRIT 
5 
E 
> 
i 
> 
5 
5 
5 
5 
5 
5 


32 
33 
34 
cS 
3 
3? 
38 
33 
40 
41 
42 


0 0 b+ b-* b= 02 0 bo bo 00 pe pe 


uy 
- FF - 
GJ 


et ee et ed ee 
COCMOOVCrTaa 
II INNNG 
coon Gorue-09 





ea} ‘ ~DcR 


—. 5. 


SOS050 
ocsosé 


- 308064 


00837" 


006072 
086976 


006150 
005150 
09 


JI~A, RFOW/S/& FUNCT. CONT. TST-PT 2 
SET VALUE FOR SOFTWARE SWITCH REGISTER 


= celia eS Bh Wp trp ie ree gy Senate 
THERE A P-CLOCK (KWI1-P3 ON THE BY STEM 
SIF SQ MAKE "WAT" TRAPS GO TO ‘WAIT. 
isIE 50 yes ast AP PNTERRUPTS & G9 TO "FINE 3. 
IF NOT MAKE ’ TRAPS GO T Tel’ 
IF NOT MAKE ReOY INTERRUPTS GO TO "hme 2’ 


;*THE NEXT LINE IS TO BE tev ty LATER 
;*AND THE JUMP AND NOP REMO 
:#FOR NOW NO CLOCK WILL SE USED 


81S, I#ERRVEC 








seMOV 


BR 


Be MOV 
sFeugunancuennansencaabaneasnenannebnbanauasenncuasenseeneneeeet 





MOV 
MOV 
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;SET TIME-OUT VECTOR 

:D0 NOT USE CLOCK 

; PEFERENCE PoCLOCK STATUS REGISTER 
DDRESS = 172540 

aWAIT.P aegTRPADtE0 ; THERE IS A P-CLOCK 

#TIMEL, M8RPYVEC ; THE ERE CLOCK §0 

‘EETER 4 TIME! 


2s 
SWAIT.T, yestRPnose0 ; THERE IS NO P-CLOCK 


iby Ne” ; MAKE RP ORS 28 NS ee go 
CLEAR PREVIOUS ITEM NUM 


;BRANCH IF STARTING FROM 200 


53 ype ASCIZ STRING 
53 GET OVER THE ASCIZ 
«15>< 12> SELECT OnTT NUMBER TO BE TESTED ° 


; ONLY ime LAST 3 Bits 
:$RY eu go EY 


;BRANCH IF STARTING FROM 
T ;SET UNIT NUMBER 


tm! 


© 





«sy 
| 
a 


2p 


DEDCURD D3 
o 


O00 O00 MMW 
£ GIT O.00D~ JUN £6 


an 


+ 0+ bb 8 be 0b 8 ba 0 Oh 0 ho pe 


SOOO CUNT TUTTE enters 


IOC). 
-CnomM 


_"7D°? 
we ete 
? 


ai 


00617" 
006200 


CO&206 


006214 
Od&220 


CObZ26 
es 


226204 


00 210 


abe 
Doe 366 
006422 
od64e2 


g0g425 
B06430 


o0b434 
ooeH42 





oA, RFOY S.8 FUN : 
GET VALUE eR S Sberishe SW 


fu 

= 
i) 
“J 


ono oa 


= §<65 (0 
4 


oO 


e73 


~ 


4 


Lo Be | Nes 
NOUTOM-O 


sTUCOe- U1Gotur 


th 

ao 
tw 
o 


~) 


[ome] ae | oe | oe | oe | ae | oe |e | 
: fur-OOOre-e- 


104400 
odo4i§ 


012746 


LO44Os 
60013? 


012737 
012737 
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pL RERRAS LALLA RELA SSAA AE RAFAL AA AE LARA ES ESAS EREFRALFSERLLESEREEF ELEY 


TATEST 1 REFERENCE EACH REGISTER 
:* REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
Fda 
Te Bye at stines ;;D0 1 ITERATION 
MOY  #2-1,aaTSTNM ©; THIS SAVES TEST NUMBER 


MOV #STA :SET UP STACK POINTER 

MOV seecsal. SHENTVECIERROR VECTOR SO T 
REGISTERS ARE Oa eD 

MOV 82S, QHERRVEC iter UP FOR BuS TIMEOUT 


MOV ; THERE ARE 24 REG TO TEST 





MOV seuAGS R} ?R1 NOW HAS ADDR OF ADDR OF FIRST REG 
1s: MOV 3(R1)4+, R2 ;REA D HARDWARE REG. 
DEC RO :COUNT DOWN 
BNE 1$ : BRANCH IF Noy NOT DONE 
BR 3 :BRANCH IF 24 DONE é 
23: Hoy cyte: emai RESTORE TRAP CATCHER t 
CM f ‘ °C = 
MOV =2( RIS. STMPL pie PA ILING REG BOOR 
ERROR REGISTER NON EXISTA 
SIT #SH13, SUR INHIBIT ERROR SAINT OUT ? 
BNE 4§ :BRANCH IF YES 
TYPE 653 ¢: TYPE. aScIzZ STRING 
; ce 4§ “GET OVER THE ASCIZ . 
33858: TASCIZ <15><12>/IF BASE ADDRESS IS TO BE CHANGED HALT / 
sme, Se, ;:TYPE_ASCIZ STRING 
BR 3 {GET OVER THE ASCIZ 
2678: -ASCIZ ¢15)<12)/PROGRAM AND RESTART AT 7 
bes: 
MOV #SASECH,-(SP) ;GET READY TO TYPE STARTING ADDRESS 
hae ;0F “CHANGE OF BASE ADDRESS” ROUTINE 
ug: IMP = aBSEOP G0 TO END OF PROGRAM ----------- . 
33: MOY aSERROR, ORENTVEC; RESTORE ERROR VECTOR 
THAT REGISTERS ARE SAVED 


MOV HERRVEC+2, anERRVES RESTORE TRAP CATCHER 













MNDEC-i1-D2RIJ-8, RFOYS. FUNCT. CONT. TST-PT 2 MACYLL 27(655) 30-NAR-76 18:59 PAGE 38 SEQ cose 
DZRIIA.P 2! th REFERENCE EACH RESISTER 

£25 

ise Sipura iuitatitsseue 

igz- tSTEST 2 PARTIAL TEST OF RHAS FOR LINIT NUMBERS PRESENT 

Bs :3 CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES 

i832] © SLSSSSSRELAHAEHAE LE LARA ALS LA FS ELAR LESSEE SLA FAEAE LEAR SA LSE SSLSF EES 

1bse QOH p0009 tira: SCOPE 

13 Sie?s? 900001 odl212 OV #1, STIMES ;;D0 1 ITERATION 

1634 Specs 912708 901000 MOV aStAck,s :SET STACK POINTER 

i636 OO&4S4 213701 o0zz16 MOV J#eRHAS, RI :R1 HAS ADDRESS OF RHAS 

les? 006470 Ole7ii 177707 MOY #-1,aRi WRITE ALL ONES INTO RHAS 

1538 608474 j1OS711 TST8 = ARI :TEST IT FOR ALL O'S 

i640 o06476 901407 BEQ TST3 BRANCH IF GOOD 

ig42 OC&S00 011137 001126 MOV 3R1,a8$8DDAT  ;BAD DA ATA 

1643 906505 006037 001124 CLR aeSGDDAT :G00D DAT 

1844 9065io 619137 O04600 MOV R1, JBREGADR : FAILING REG. RHAS 

ié45 806514 104005 ERROR 5 ; : RHAS DOES NOT CLEAR BY WRITING ALL 

ibs :ONES INTO IT 

40%: 








NNDEC-12-D2RJJ=- ~ ka ‘S/S FUNCT. CONT. 
DZRIJA.Pil 


O06515 
006520 
006526 


006534 
OGES36 


006542 
005559 
00655e 
COESS& 


006626 


O0bE6e 
OOES55 


BOE 7e 


006702 
006710 
00671e 


006716 
006716 
006722 












TST-PT 2 MACY11 27(655) 
PARTIAL TEST OF RHAS FOR UNIT NUMSERS PRESENT 
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y RHR RAKE RARE ERLE HERA E LEAK AAAAE AAA ARREARS EASE ER EE AE SEES FEES 
ATEST 3 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


* THE NUMBER OF RPOY/RPOG DRIVES PRESENT . FOUND 
* BY MOVING ALL ONES I''TO RHER! WITH UNIT NUMBER 

:# TN RHCSe INCREMENTED FROM ZERO TO SEVEN. 
;* 
st 
1% 





“=. SET BITS IN RHAS WILL GIVE DRIVES PRESENT. 


1E DRIVE TYPE IS CHECKED TO BE RPOY OR RPO& AND 
JNITS PRESENT ARE STORED IN A TABLE CALLED ’UNITS’ 


 ngigae *2,/ "pean ttapmaatere apeiptectapge mene aagirasen fir cacy 


goo004 $73 
012737 000001 o01212 #1, $TIMES :;D0 1 ITERATION 
























012737 900003 O04504 MOV 84-1, J8TSTNM ;THIS SAVES TEST NUMBER 
O0000S RESET ;START WITH AN INIT 
004727 037026 JSR PC, d#STKINT SINITILIZE THE TTY KEYBOARD 
Q032777 O20000 172370 BIT #SW13, aSWR fa Free TYPEOUT? 
001026 BNE $ s BRAN YES 
104400 OO6&5E0 TYPE 6ss #3 URE "agerz STRING 
000423 BR 4$ ;GET OVER THE ASCIZ 

Page -ASCTZ 18> ¢ 12) «15> «12> LOOKING AT RHAS - DRIVES PRESENT/ 
013701 O0e216 4§: MOV @ #RHAS, RL pRt HAS ADDR. OF RHAS 
013702 O02e176 MOV JeRicSe, Re ;Re i ADDR. OF RHCS2 
005012 CLR ake sCLEAR R HCSe 
O1e700 000010 MOV #8. RO ; 
013704 O0e202 MOV S#RHERL RY 7R4 HAS ADDR. OF RHERI 
Ol2714 177777 1S: MOV #-1,aR :MOVE ERRORS INTO RHERI 
o0Se2le INC ake’ s INCREMENT UNIT NO. 
005300 DEC RC 
001373 BNE 1$ ‘BR BNCH IF 8 NOT pe 
111137 OO4%646 MOVB QR1,Q#TOTALAT  ;SAVE TOTAL ATTENTION 

;USED IN peed By CLEAR TEST 

105037 O04647 CLRB DSTOTALAT+1 ;CLEAR_UPPER 
105711 TSTB aR1 : TEST FOR ANY DRIVES PRESENT 
001402 BEQ $ SIF NONE THERE - SAY 
000137 007260 JMP xE2 :SOME THERE - LOAD TABLE 






172230 








032777 920000 23: BIT #SW13, ISWR start ERROR TYPE OUT’ 
000137 oo7616 JNP SELTST ‘CHECK FOR SELECTED UNIT START AND LOAD 
"UNITS" TABLE WITH DESIRED DRIVE IF SO 
38: 
104400 908724 TYPE &7$ : 3 TYPE ASCIZ STRING 
ooc4e1 BR 663 VER asciz 
2:67$: .ASCIZ <15><12>< 15><12>40 DRIVES PRESENT = RHAS = O/ 





ant % Nesta“ FUNCT. CONT. 4 
il TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


DZRIJA.P 


INININININININIININS III I 


-+0-+ = > -b— & <-> <b b—~ b-< 8 -< 8-2 = §-— po 9-2 9 9 


he 
rv 


i721 


00676 
D067 6 
008772 
007CS4 
007854 
007960 
007142 
007 14e 
007146 
007254 


007254 


aavase 


007354 


007372 
007374 


007412 


007414 
007420 


104400 
000430 


104400 
000430 


104400 
OOC442 


006137 


103120 


010577 


001477 


022777 


001467 
022777 


901457 


104400 
000410 


00677" 


007062 


007150 


032506 


001176 
172642 
024020 
029020 


024021 
020021 


024022 
020022 


CO7422 


172662 
172652 


172642 


172632 


172622 
172612 


TST-PT 


XE 


es: 
3s: 


45; 





TYPE 
BR 

9S: .ASCIZ 
TYPE 


8 
s3718: .AECIZ 


TYPE 
BR 
3$: .ASCIZ 


IMP 


MACY11 27(655) 
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695 +3 TYPE ASCIZ STRING 

8$ ;GET OVER THE ASCIZ 

<15)<12> “WRITING ‘ONES INTO RHER] FOR ALL UNIT NUMBERS/ 
71§ $3 ee ASCIZ STRING 

O$ ;GET OVER THE ASCIZ 

¢15><12>/D0ES not’ SET ANY BIT IN RHAS SO ABORT PROGRAM/ 
738 i TYPE mele STRING 


2s IZ 
(15) (12/70 LOOP ‘iN THIS fest WO PRINTOUT SET SWITCHES 13, #4 & O<18><le 


aeSEOP 


;*SET UP THE UNITS TABLE 


2: 


Tahaalalelal-Srt-taelehalalns-trt-+-Lcal-P-hr+-+-elalalahl-t-teb-trt-+-tb-lal-tr}-tlat-t-9-+-S-t-t-t-tabhaelelalal 
#24021, JRHOT 


6 
#20021, JRHDT 
6$ 


TYPE 
BR 


aeatrs R3 
#-1, (R3)+ 
RO 

3$ 

#UNITS,R3 
SENOUNTT 

aRi SaSTHPC 
g¥STNP 

RS, IRHCS2 
se40e0, JRHDT 
#20020, JRHDT 
6$ 


#24022 , JRHDT 
1 , JRHDT 
Serre t rit t tii tti ttt ttt tttttetitttt ttt ttt tt tite ett. 


643 


65$ 


: COUNTER 

;POINTER 

;PRESE BLOCK TO ALL ONES 
sSRANCH, TF 8 NOT DONE 


iNQ. ngeR UNITS PRESENT 


 TenPoeey STORAGE 


:1S THIS A DUAL PORT 

TYPE ORIVE NO. IF SO 

s1 THIS A_SINGLE PORT RPO4 ? 
;TYPE NO. IF SO 


THIS A DUAL PORT RPCS ? 
DRIVE 


NO. IF SO 
15 THIS A SINGLE PORT RPOS ? 
:TYPE THE NO. IF SO 


+8 THIS A _ PORT RPO6 ? 
Tyre DRIV ye! IF_SO 

tS T HIS A SINGLE PORT RPOE ? 

; TYPE DRIVE NO. IF SO 


;;TYPE ASCIZ STRING 
tIGET OVER THE ASCIZ 








Y_IF ONE IN QO BIT 
:CHECK NEXT UNIT IF ONE NOT IN BIT O 
$ SSENT UNIT NUMBER mL UA BITS 
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MNDEC*11-DZRJJ-A, RPOY/S/§ FUNCT. CONT. TST-PT 2 MACY11 27(655) 
DZRIJA.P11 +3 TEST FOR ORIVES PRESENT USING RHAS AND RHCS2 








1756 +265: .ASCIZ <15><12>/UNIT NUMBER / 
175? oo744e 2 64s: 

1758 OO7T44s = g1os4s MOV RS, -(SP) sGET READY TO TYPE UNIT NUMBER 
1759 Go7444 04404 TYPDS 

1760 OO7446 104400 907454 TYPE 67S :; TYPE ASCIZ STRING 

1761 OO74S2 COO4O BR 6$ :GET OVER THE ASCIZ 

1762 +3678: .ASCIZ 7, RHDT = / 

1783 007470 b6$: 

1784 097470 017746 172530 MOV DRHDT, - (SP) :GET READY TO TYPE RHDT 

i785 907474 10440) TYPOC 

1786 OO7476 104400 007504 TYPE 69S 3s TYPE asciz STRING 

1787 007502 3500422 BR beg “GET OVER THE ASCI 

1768 +2695: -ASCIZ ? - NOT AN RPOWAEOE/RPOS DEVICE 1? 

1769 007550 68$: 

1770 067555 000407 BR c$ ;NO RPOY/RPOS/RPOG FOUND SO INCR TABLE 
¢ 

1772 oo7sS2 010523 S$: MOV RS, (R3)+ 

1773 007554 104400 o01222 3 TYPE SCRLF 

1774 097560 O!0s46 ; MOV RS, -(SP) 

1775 007562 104404 TYPDS : TYPE DRIVE NO. 

1776 007564 095237 oo4620 INC JHNOUNIT ‘NUMBER OF DRIVES 





1777 







1778 007570 905205 S$: INC RS ; INCR on NUMBER 
1779 O0757e 005300 DEC RO :DECR OF nt LOOKED AT 
1780 007574 001252 BNE 4$ ; TEST THE NEXT UNIT 









1782 007576 013737 004576 OCO4616 MOV QSUNITS Q#UNIT  ;SET UNIT NO. i FIRST ONE FOUND/OR 0 
2783 07604 013737 O04%62e0 O04b22 MOV SENOUNTT, J#NUNIT’ ;SAVE NO. 0 TS 

1784 007612 005337 OO0462e DEC J#NU ;iF NUNIT = 0 THEN ONLY ONE UNIT 

i785 : IF NUNIT > 0 THEN MORE THAN ONE UNIT 










1787 O076is 005737 O04626 SELTST: TST deSELECT ;STARTING ADDRESS 200 ? 
1789 O076e2 001403 : BEG TST4 ; ;BRANCH IF STARTING FRO! 200 
1791 007624 013737 OO4630 OO%615 _ MOV Q#UNITSL,@aUNIT ;SET UNIT NUMBER 
























OZRIIA 















8 

1807 007632 
1808 007634 
007642 


007650 
007654 


007662 





oo 
Oo 
wo 





b+ b= 0 pe pe pe pee 


WONIMULCWMUeHO 


007655 
1820 9007672 


1825 007712 
1827 007716 


1832 007720 
1833 007724 


007726 
1836 907732 


1841 007740 
1843 910932 


1844 010032 
1845 010036 


eiabe RFOY/S/ 


t3 


000004 
012737 
012737 


012706 
012737 


004737 


005037 
005737 


005737 
001006 


012700 
005720 


022719 
001065 


i24400 
006434 


104400 
000421 


000001 
010534 


001000 
900004 


033004 


CO4644 
0046 16 


000041 
000011 


004625 


004576 


177777 


‘007742 


010040 


‘6 FUNCT. CONT. 
TEST FOR DRIVES 


O0l2ele 
001106 


004504 
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TST-PT 2 
SRESENT USING RHAS AND RHCS2 


seme ee-ee 


WAC OOK KK leer 
4 


fp RRRKRAR ARE RAKES ALAA ELAR EAL EAE LEAS EKA EL EL EK HKALE LRA EEE SESE SSS 


T4 TYPE SERIAL NUMBER AND DRIVE TYPE 


SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN ‘ATTENT’ 
TYPE UNIT UNDER TEST 


READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 
TYPE THEM OUT AND PROCEED 


TO LOOP HERE SET SWITCH 8 AND THIS TEST NUMBER ON 
SWITCHES O THRU 7 AND Bestar 


e 5 Salli 1-5-5 iaelaelaielaileialaelaelaelalelaelaielaiiailaiisiieiieineineinieiseinieioielaieieiieie 
TY: 0 


19 


big? 


MOV #1, STIMES ;;D0_1 ITERATION 


MOV #1$, SLPADR ::SET SCOPE LOOP ADDRESS 
MOY #STACK, SP ;RESET STACK 
MOV . 84, a8TSTNM :SAVE TEST NUMBER 
ISR PC, J#CLDISK sSET RI-RHCS1 R2-RHCS2 
R3-RHDS1, R4-RHE 
:GIVE i INITIALIZE 
:SETUP UNIT NUMB 
CLR DSATTENT :CLEAR UNIT UNDER TEST ATTENTION 
TST DHUNIT :IS THE “UNIT” = 
BNE 208 :IF NOT, SKIP NEXT MODS 
MOV #41,R0 IF SO “CHECK THE LOAD MEDIA LOCATION 
CMPB =—s«#1 1; (RO) :WAS IT AN RPO4/S/ 
BNE 205 :IF NOT, GO AHEAD BND TEST UNIT #0 
TST DRSELECT sha UNIT #0 SEL LECT ED ? 
(IE. 210 START ? 
BNE 193 TF §0, CHANGE Pack 


;*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
:*8 DECREMENT "NOUNITS™ PRESENT TO BE TESTED 


MOV #UNITS,RO SIF pag LOAD LF UNITS TABLE POINTER 
TST (RO}+ : SELECT’ THE T TAB 


NEXT 
: (DOUBLE INCREMENT THE POINTER, RO) 
CMP #-1, (RO) 315 THERE ANOTHER TABLE ENTRY PRESENT ? 
BNE 19$ SE NEXT & DECR “NOUNITS" 
LIF Rot, CHANGE pack ON UNIT #0 
TYPE 65$ ;;TYPE ASCIZ STRING 


BR 4$ OVER THE ASCI 
-ASCIZ. €15)¢12 ¢15><12>/BISMOUNT PACK FROM UNIT #0 AND MOUNT A SCRATCH PACK/ 


TYPE 675 :;TYPE ASCIZ STRING 
BR S$ ::GET OVER THE ASCIZ 































BOS 


NDE CS -DORI I“, RFOW’S/S FUNCT. CONT, TST<PT 2° —EMACYI1 27(655) 3O0-NAR-76 18:59 PAGE 43 SES 9091 
DORIA. Pid 4 TYPE SERIAL NUMSER AND DRIVE TYPE 


1846 ‘. big’? eASCIZ «15)¢l2>/PRESS CONTINUE WHEN FINISHED /<15>< 12> 
is4¥7 |= 030102 $$: 
1848 915163 00000 HALT 
1848 ODICLOS UCU4O SR 20§ sCONTINUE, USING SCRATCH PECK ON UNIT 80 
eA 
185) 010106 011037 04616 18s: MOV (RO), S8UNIT ;SET UP NEW UNIT UNDER TES’ Soe 
+$35 O1Olie U0S337 OD4éED DEC asNOUNITS sDECR BECKUSE UNIT sO WON’T BE TESTED 
$55 10118 213720 OOMe1E 20$: MoV DAUNIT,RO sRO NOW CONTAINS UNIT NO 
i353 
less SPER SL SSS SE SES ESRERES SER ESSA SAS SSSR ERLE SLES ES SELE SLES 44444444454 
4860 O10122 905037 OO4636 CLF geRPOE ;CLERR RPOS DEVICE TYPE FLAG 
388] 010126 QO10077 720494 MOV RO, akeCSe 3SET UP UNIT ADORESSING 
1882 Clllse Ceer?? O2es0ee 172065 oMe g24022, JRHOT :OURL PORT RPOG ” 
1863 9010340 001405 BES 2$ » : YES. .SET FLAG 
1888 Ololise ee??? C2e0022 72054 oMP s20022, JRHDT s;SINGLE PORT REDE 7 
*Se Pe mea s FAturs - = s ? a 
i865 O10150 00140) BES 23 sYES...SET FLAG 
i866 010152 00403 SR 33 sD0N°T SET RPOE FLAG 
+352 OCIClISs Olevs? i77777 OO4636 eS: MOV @-1, a8RPOE ;sET THE FLAG 
i825 210182 3S: ;ASSUME THE NEXT UNIT IS AN RPO RECS 
1372 LL SSRRRSERSRSSEASESSSAERESRERELESASRRSLES ASSESSES SES SESSA SSEESE 
i872 
873 O10i62 118037 SO4S6& OO4644 MOVE ATABLE(RO) ,QBATTENT ;SET APPROPRIATE ATTENTION SIT 
1874 O10170 JOS400 O10i76 TYPE 63s 53 TYPE ASCIZ STRING 
‘1. 2875 O10274 O000424 zs D : 3 SET OVER THE ASCIZ 
ig76 7:698: .ASCIZ <15><le>/TESTING ORIVE NUMBER/ 
187? 010226 52s: ; : ‘ 
1878 Cideces OLS74— OO4E16 MOV = @BUNTT, -( SP sUNIT NO. TO STACK 
1879 GlGe3se 104404 TYPDS ;TYPE ORIVE NO. 
| 1880 QO10e34 JO4400 O10e4e TYPE aii ;3;TYPE ASCIZ STRING 
1881 Oi02e40 000419 BR (OS *-GET OVER THE SSCIZ 
ee gaziS: .ASCIZ <15><12>/SERTAL NO. = / 
1823 Ol0e6e ay (US: - ge 
1884 Ol0e6e O1774—6 171740 MOV MRHSN, -( SP) ;3;SAVE QRHSN FOR TYPEOUT ae 
1885 Oi0e6e O44) TYPOC 33G0_ TYPE--OCTAL ASCIT(ALL DIGITS 
1BBE «01Se7D 1OS400 010276 TYPE 4.38 ;;TYPE ASCIZ STRING 
1887 G1Ce74 900410 R ‘¢ > Geax 3agkT OVER THE ASCIZ 
| ieee aaceS: .ASCIZ <1S><le>/DRIVE TYPE = / 
28S orgie *2$: 
| 2890 8103168 017746 17:702 MOV aRHDT , -( SP) ;;SAVE SRHDT FOR TYPEOUT ss 
| 4891 OlG3¢2 04401 TYPOC *:G0 TYPE--OCTAL ASCIIVALL DIGITS 





~ 
peste, 


MN 


Dt 


C405 


a 
Fa 
EAA A 
SPUN E tote 
IOIGIOI 
fue fener 


" 


GIGIG) 
4 


=) 
t 


MOOMOw 
en tei? 4 


= 


+0 -< 9 0p 6-06-00 6-0 


QOonono Bes 2 


u“ 


DO OODOWONO0 OMWw ws, 
3° SEE 
~Jj 
+ p-=9 «9-0 


+696 +60 90 


*o-*6 
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MACYL1 27(655) 30-NAR-75 


:#TYPE OUT THE DRIVE TYPE IN ASCII 


pRARRERERERERE SSE ELEAAERERASERERAEEEERERERERE SESE RARE RE EERE EE EEE 
. 824020, JRHOT PURE PORT RPOY ? | 


CMP #20020, aRHDT SINGLE PORT RFCS 
4g se THE NESCACE 

CMP 824021, JRHDT ;QUAL PORT RPOS ? 

; TYPE THE MESSAGE 


MP 320021, RHOT ;SINGLE PORT RPO 
S$ :TYPE THE MESSAGE 


CMP se4C22, JRHDT ;DUAL PORT RPE ” 


BEQ TPE THE MESSAG 
CMe #20022, JRHOT :SINGLE PORT RECS 
BEQ ! eas :FYPE THE MESSAGE 
TYPE 753 ss TYPE ASCIZ 

R ou :GET OVER T 
sASCIZ. «15><12>/DRIVE 1 AN RPOY/< 15) < 
oc 1g ;SKIP NEXT ONES 

Rg 76S ite VER TH ‘a 
LASCIZ. <1§)><12> “DRIVE IS AN RPOS. 
BR 1g »SKIP NEXT 

TYPE ry ea 3 TyRe ASCIZ STRING 


BR a2g CSET OVER THE ASCIZ 
"ASCIZ <15)<12>/DRIVE 18°AN RPOG/<1S)<1B> 


es: FLEFESLARESELESELSLLLFAALFETFLALAAFTAELEEREL TAPE FPERERLTFPEFE 


TST aRHSN sRERe SERTAL_NO. 

TST JRHOT THESE TWO ARE TO ie 

MOV aRHSN, J8SN ;SAVE TO CHECK IF ORIV 
Ov JRHDT, daOT sSAVE TO CHECK IF ORI\ 


eee ee. 
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Moe AOLIRIT-8 
RITALPLL i. 
1338 
1$33 
1380 
41 
1342 
1943 
sss 
r34s5 
1o45 
1847 910560 900004 
1984S 010582 21273) 
i350 
13S: 
13S2 
$53 
1358 910570 oO4737 
1855 O10574 32713 
1gss 
24 910600 601244 
1953 O10G0= 104400 
1960 O1080&8 O004e20 
1361 
1362 919659 
1963 910650 104400 
1364 Ol0ES4 OOD424 
1gés 
1965 O10726 
1387 O10726 108460 
198 010732 000431 
1363 
1970 Oil01& 
1971 031016 03271 
i37e OllGee v0i7" 
13973 OCil0de4 104400 
1974 011930 000430 
16°c 
1876 OL1112 
1977 
i372 
is7s 


RFO4 S.5 FUNCT, 
ree SERIAL NUNGER AND BRIVE TYPE 


000005 


CONT. 


o04s04 
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f RERRRELASRALARA FELASA LA AALS SALES LSE ALAA LAL RAF ELA LEL LL EFFALE LFF FSS 


TEST CHECK MOL TO BE HIGH 

: MAKE SURE THAT DRIVE IS ON LINE BEFORE STARTING PROGRAM 
;* IF DRIVE IS OFF LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
38 WANG FOR EVER WAITING FOR DRIVE TO GO ON LINE 
[LTRARAAARHEAERARARRAAEPAREREERERERAREREAREREREA EERE EERE EERE ATES 
iSTS: SCOPE 


MOV #5-1, J8TSTNM ;THIS SAVES TEST NUMBER 


ISR PC, SACLDISK =; GIVE. INITILIZE 

BIT sMOL,aRa ;CHECK MOL IN BHDS1 

BNE -TST& ;BRANCH IF MOL HIGH 

TYPE =, 658 s:TYPE ASCIZ STRING 

35 T OVER THE AScIZ 


54S GE 
pgs ASCIZ C15) «12> “DRIVE 18° OFFLINE - MOL 1S LOW 
"TYPE $78 3 Tye AS¢c1z STRING 


a 5 “GET OVER THE ASCIZ 
ig7S: "ASCIZ c1=)<12>-HIT STARE ON DRIVE TO GET IT ON LINE- 
TYPE $9 YPE ASCIZ STRING 
BR bsg ite OVER THE ASCIZ 
ig? "ASCIZ <1=><12> PROGRAM LIILL HANG TESTING MOL TILL MOL IS HIGH’ 
lf: BIT eMOL, dR2 sCHECK MOL IN RHDS! 
BE 1g WATT IF MOL IS STILL LOW 
TYPE 8 3 TYPE “ASCIZ STRING 
SR 0g SiGET OVER THE ASCIZ 
iigt® TASCIZ “<15><12>/G00D - MSL IS HIGH, PROGRAM WILL BE EXECUTED. 








ee — - a ee 2 


NNDEC=12-DZRII=“", RPOW/S/& FUNCT. CONT. TST-PT 2 MACYLL 27(655) 30-NAR-76 18:59 PAGE 46 
DDRITA.P I! ts CHECK MOL TO BE HIGH 

1380 

1$81 SS RERARERRSARARAA TSA LAK RA LL ALARA SSAA LEA LALA FLEFAF SE LELAASEL FELIS 
1338 rATEST & PROGRAM INTERRUPT 

1985 :* PROGRAM INTERRUPT 1S TESTED BY SETTING ROY AND TE 

1985 :* N RHCS1 AT T TIM 

1986 :# Hrs SHCULD INTERRUPT THROUGH LOCATION 254 

196° te THE PROCESSOR PRIORITY IS SET 

138s ee ccaiiliaes Re pateeuaenenaamabamanredhianaaaniaiaiasaaauani a 
1$8S Ollilz 900004 *Stg: SCOPE 

138 

i # 11114 O12737 cO0000e o04so4 MOV so @7=1,aeTSTNM =; THIS SAVES TEST NUMBER 

1 = 011122 012706 901000 MOV —-#STACK, SP ;RESET STACK 

. = 

l 

. 

3 





3 
= 
3 
3 
S86 Ollles 04737 023004 JSR PC, aacLDISK et RI-RHCS1, R2-RHCS2 
33° : By reel RY-RHER 
$38 sGIVE RH-i1 INITIALIZE 
232 : SETUP UNIT NUMBER 
991 Olli3e 9013700 O02166 MOV DBREVEC, BO) :GET RP y 3h ADDRESS 
0 Ol1126 QOle720 011204 MOV @RPTRP! sTHIS IS FOR TIMELY ead ts 
cobs 012142 G12710 o88340 MOV #340, RAS” seb08 TERRY SERVICE ROUTI 
200 6 
2005 9111468 012737 000200 177776 MOV #200, PS :SET PROCESSOR PRIORITY 3 4 
22 011184 Qie711 000300 MOV @®OY!'IE,aR1 *ROY, IE IN RHSC1 SHOULD CAUSE INTESRUPT 
208; 
2098 911160 013737 033502 001200 MOV DAT IMENT, DBSTMPL;CO UNTER 
2009 011158 905337 001200 1$: DEC assTMP] WATT FOR pH gal 
2010 O11172e 9O0i375 BNE 1s : BRANCH IF NOT ZERO 
201i :BEFO Is ts ZERO INTERRUPT SHOULD OccUR 
e0le Q11i74 104065 ERRO ipa i FATERRUPT ID NOT OCCUR. 
gots Ol117& Ole7le oo004o MOV aCLR,dR2 ;CLEAR CONT OLLER vIA CS2 
Ewd 
spie OiieSe 000407 BR TST? sBRANCH TO NEXT TEST -------------- ) 
20 
20i7 
20i8 011204 Oe2be6 RPTRE1: CMP (SP)+, (SP)+ RESTORE STACK 
£913 5ile08 Se27i1 04200 CMP #DVALADY, aR) ;IE SHOULD SE LOW 
Cue 
zoel Oligl2 201403 BEG TST? ;CONTINUE IF GO0D -------------- ) 
ar 
eles 011214 104065 ERROR 65 s INTERRUPT Oc CURED SUT 
2024 IIE F AILED T G RESET 
eleS Oliglé Ole7le 900040 MOV aCLR, ore “CLEAR C ONTROLLER 
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NT. TST-PT 2 MACY11 27(655) 30-NAR-76 18:59 PAGE 47 
“PROG Ran “INTERRUPT 


yy RRARERARASHAEREREAERAEER EAR EAE LEER EREL ERE ALAA EAE EE RESALE REESE EE 
;TEST 7 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


:* PROCESSOR PRIORITY IS SET AT S (SAME AS THE DISK) 
3% IE AND ROY IS SET. THIS SHOULD NOT INTERRUPT 
p REA RERRR ARR E RAK RAL RARER AREER ALE R ARE R ELE AR EE EAE EARLE AAAS ELSE EASES 


tits, SCOPE 


MOV #10-1,a8TSTNM ;THIS SAVES TEST. NUMBER 
MOV aSTACK, SP ;RESET STACK 


JSR PC, ACLOISK 4g SET_RIZRHCS1, RE-RHCSE 
R3-RHOS1, R4-RHERI 
GIVER at INTTTALIZE 
;SETUP UNIT NUMBER 


MOV asRPVEC RO eT RP VECTOR ADDRESS 

MOV sRPTRPe ~~ THIS IS FOR UNTIMELY INTERRUPTS 

MOV #340, (RO) 0 wee: SERVICE ROUTINE 

MOV 240 ibs :SET PROCESSOR PRIORITY = 5 

MOV aRDY! IE, aR2 ROY, IE IN RHSC1 WHOULD CRUSE INTERRUPT 

MOV DeTIMENT  daSTMP1; COUN TER 
18: DEC aeSTMP] WAIT Re INTERPUPT 

BNE i$ :BRANCH IF ZER 

: IBEFORE THIS iS ZERO INTERRUPT WHOULD . 

MOV sCLR, dRe: :CLEAR CONTROLLER 

BR TSTIO ;NO INTERRUPT SO CONTINUE --------------- 
RPTRP2: CMP (SP)+, (SP)+ ;RESTORE STACK 

ERROR 65 ; INTERRUPT SccuRees 


WITH 
PROCES SOR PRIO RITY SAME RS OISK 


MOV #CLR, oR2 ‘CLEAR CONTROLLER 





a ne ne a ne ee: 








ICO 
a pe 


REG 
Gaus O.00 NOUS Gotu OW NOU OMe OWI 


“o 


7 QO 
OowWwwo 


0+ 0 b= 0 = + 8s ho 8 = 0 2 he 2 8-2 ae 
TUTUTUTUS-- 0-+0-- o-+ 8 8-8 COOOL 


iat 
.P 


O1137& 
Oiisde2 
D11404 


Oi140& 


ah! 1415 
wee tow 


O11416 
Oli4#2e 


011426 


DIRII-A,_SFOWS, & 


tr 


004737 
104400 
000000 


013777 


604512 
CO0022 


FUNCT. TST-FT 2 
INTERRUPT aT PROCESSOR AND DISK PRIORITY SAME 





17777 


004504 


170602 


‘9 
wn 
an 
© 


77 
7 
- 


CONT. 


5 RRR RARER RR EERE R EERE R ERE ER EERE RE EERE EERE EA EEE EE EEE ER ERE ES EASE 
HAT TEST 10 SET VV BIT #6 IN RHDS1 


sveeeeungneneennneeeeenonnsounonsennuneenennoreneensees 
0: SCOPE 


ACY11 27(655) 30-NAR-7& 18:59 PAGE 48 


THIS TEST SETS VV_IN RHDS! 
THERE IS _A_ RESET AT THE GEGINING OF THE TEST 
FOR ERROR RECOVERY ONLY. 


;#IN CASE THERE IS ANY DRIVE ESRORS ON POWER UP 
i208, POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 





JSR PC, QNSTKINT sINITILIZE TK 
MOV 80, PS 
MOV aSTACK, SP sRESET STACK 
MOV #10, Satetnn :SAVE TEST NUMBER 
ISR PC, J#CLDISK ;SET RI-PHCS1 fecite S2 
:R3-RHDS1 HER] 
: GIVE ail INET EEL IZE 
:SETUP UNIT NUMBER 
ISR eC gaCHECK : CHECK WNAT DVA.RDY, MOL. DPR. D 
TYPE  CPHA ; CANNOT CONTINUE TESTS fF Sar ‘DON ty 
HALT -STOP TESTING 


MOV Q8PKACK,JRHCS1 ;GET READY FOR PKACK 
;PACK ACKNOWLEGDE WITH 22 IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


JSR RO, d#SAVER ‘Be REGISTERS 
RE RHWC IS THE FIRST oe SAVED 
SaVERE PBSERTING ADDRES OF WHERE 
; THE REG isteRs ARE SAVED 
18. ;NUMBER OF REGISTERS 
SAVED = 18. 


MOV DBRPSVEC,ARPVEC SET RFCY VECTOR eee 
TO 'TIMEL’ IF P-CLOCK AS PRESENT 
79R TQ ‘ahh o mA PecLock IS NOT THERE 
IME’ WILL ONLY SAVE 
; CURRENT AT INDER REGRESS 
AND LOOK AHEAD REGISTERS 


Moy DRPKF_. (SP) 3GET READY 10 MOVE COMMAND 

BIS  _8G0,.- :GET READY TO SET G 
WITHOUT INTERRUPT ENABLE 

Mov —(SP)+,QRHCSL = ;G4Q._WITH e 
;22 IN RHCSL FOR PACK ACKNOWLEDGE 
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t19 


000001 


pee 


022600 
pole 


Babes 
poles 


104063 


904037 
OCee2ee 


ANAAN: 


60000: 
00000! 


090100 


CO4037 
904512 


MNOEC= “1L1-DZRJJ-A, RPOY/S/6 FUNCT. CONT. 
SET VV BIT #& IN RHDS1 


001124 


001126 
054s00 


033674 


S43: 


6&3: 


TST-PT 2 


MOV 
MOV 


WAT 
RHDS1 
VV 

1. 

1. 


JR1,R9 
aR3,RS 


MACY11 e7(655) 
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;WITH INTERRUPT DISABLED 


;SAVE RHCS1 DURING ABOVE CPERATION 
:SAVE RHDS: DURING ABOVE OPERATION 


;WAIT FOR VV BIT TO SET 
: WAIT Ate aot REGISTER 
WAIT FOR VV BIT IN RHDS1 REGISTER 
ALLOW 10 MiCRO SECONDS 
MUST SET BETWEE 
$0 AND 20 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
:*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


DHPKACK, -(SP) 
#DVAIRDY, (SP) 
(SP). daSGODAT 
(SP)4+,R0 


o4$ 
RO, dsS8DDAT 
gree ; UBREGADR 


sSAVE SR 
: INCLUDE DVA 
: SAVE FOR SRINTOUT 
: DUR ING ABOVE OPERATION ONLY DVAIRDY 
:AND COMMAND SHOULD BE SET 
: BRANCH BY GO0D 
:BAD DAT 
FAILING AREGISTER RHCS1 
DU RING ABOVE OPERATION ONLY 
OMMAND AND DVAIRDY SHOU 


:C LO BE SET 
#MOL!DPRIDRY!VV,-(SP) _;SA A ois SET DURING OPERATION IN RHDS1 


rat ya aaetl 


66$ 
RS, d8S8D0AT 
1 atintact 


RO, d8CHRES 


: SAVE FOR PRINT 
DU RING ABOVE OPERATION ONLY MOL! DPRIDRY! VY 
:SHOULD BE SET 
s BRANCH | IF 6000 
:Ba0 BAT 
= FATLING "REGISTER R HDS1 
: DURING ABOVE OPERATION ONLY 
MOL EDPR! DRY'VV SHOULD BE SET 


; CHANGE BITS IN SAVED REGISTER 
;CHANGE RHOS1 REGISTER 


32 BIT/BITS TO SE CHANGED 
sNEW VALUE OF VV IS 1 
; CHANGE VV BIT 


;#NOW COMPARE REGISTERS SEFORE PACK ACKNOWLEDGE 
@#WITH AFTER PACK ACKNOWLEDGE 


JSR 


SAVERE 
We 


18. 


RO, J#COMREG 





corn a REGISTERS WITH 
PRESENT VALUE 


$6000 DATA "Savep IN *SAVERE’ 


+TEST DATA STARTING FROM *RHWC* 
318. REGISTERS TO BE COMPARED 















MNDEC=32-D2RIJ-A, RPOY/S/6 FUNCT. CONT. TST-PT 2 MACYLL 27(655) 30-NAR-7& 18:59 PAGE SC SE co98 
DZRIIA.Pi! $10 SET VV BIT #6 IN RHDSI 
178 O1ISSS o11562 1s  sRETURN TO 1$ ON ERROR 
11560 O11566 3g 'RETURN TO 23 ON NO ERROR 
O1Et2 104015 | 18: ERROR 15 SGIVING A PACK PCKNOWLEDGE 
Bijeeg 50305 RTS sé CAUSED AN ERROR 


:PACK ACKNOWLEDGE. SHOULD 
SET VV IN RHDS1 
INTERRUPT SHOULD MAKE 

NO OTHER REGISTERS SHOULD 
: CHANGE 


:GO0D DATA GIVES CONTENTS 
: OF REGISTER GEF ORE COMM 


0+ 0+ 0 + 6-= b= 0-0 pp ape 


OOO OMMMmMmaow ~ 
i SOMU LE talus Cot Sr Ute ofoee Coats 


“<b «6- 


fw 
we 
oe 


011566 


*“b-*b-+8 


MUP oro nerororiorreorny 


OO Oe 


mn ee a eo ee 


natin “gel RFO4/S/§ FUNCT 


JI8 


fu 
te 
Ow 
Ow 


e206 
e207 
2208 
2209 
2210 
22eil 
22le 
2513 
e214 
22i5 O1iSsé 
eels 911570 
eel? 011574 
22i8 
ee19 011602 
eced 
e221 
e222 
eee3 
22c4 
eces 
eect 
eee? 011806 
eeceB Ollble2 
e223 
2230 
e231 
2232 
2233 011814 
eens 011629 
2235 Oilsee 
2236 011524 
ees? Olléseé 
e238 011630 
e239 011632 
e240 011634 
e241 011636 
cote 
2243 OL1E4o 
2244 
2e4S 011640 
ect 011644 
ee47 OLIBYE 
2e48 011650 
ex43 011652 
e250 011654 
ecSl 011656 
eeSe O11680 


009904 
012706 
Ole737 


004737 


005737 
001422 


904937 
ata 


000411 


004037 


065125 


001000 
000011 


033904 


UO4E36 


C32630 


032620 





CONT. 
Sata TRANSFER RELATED ERRORS (USING MEDIA) 


004504 
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.SBTTL DATA TRANSFER RELATED ERRORS (USING MEDIA) 


by RRRRRHRHEREAA REESE EKER AREA LEA RRE EERE ERE E ES EEE REI EE ERLE REARS 
SATEST ll LAST BLOCK TRANSFERED-RHDS1 LBT 


- WRITE ONE WORD OF 6512S ON CYLINDER 410. foils? TRACK 18 
# SECTOR 2!, BY A WRITE HEADER AND DATA COMMAND’ 

% THEN CHECK Be REGISTERS (LAST BLOCK TRANSFERED 

* SHOULD BE SET) 
~ 
* 
“tha 


THEN READ ABOVE USING nee _ (256 WORDS) 
oe ALL REGISTERS AND DAT 
(AGAIN *L&T’ SHOULD BE SET 


spray +" geewpggseare sopran ees etaomi gate penne nee Mops 
ll: 
MOV aSTACK, SP sRESET STACK 
MOV #11, aatSTNm :SAVE TEST “NUMBER 
ISR PC, JCLDISK ;SET RI-RHCS1, R2-RHCS2 
*R3-RHDS1, RY-RHER! 
‘GIVE Rd-11 INITIALIZE 
:SETUP UNIT NUMBER 
:#CHECK THE DRIVE TYPE AND THEN FILL THE 
t4WRITE FROM BUFFER WITH APPROPRIATE HEADER 
EKER RHEE EE EASA HEE EAE RE EEK AE RARE EEE EAE ER EERE EERE EE SEDER EE EE 
TST DeRPOG ;TEST FOR RPOS DRIVE 
BEQ 118 sTREAT UNIT AS AN RPOY 
: TREAT UNIT AS AN RPOS 
Perr rrr trti titi tiretitttriritittittr irri reir tt itt ttt rt rites? 
JSR —s- RO, 2#FLHEAD :SAVE HEADER DATA IN WRFROM ¥ | 
RFR OM STOCATION WHERE SAVED ? 
‘NUMBER OF WORDS SAVED t 
11456 FIRST DATA WORD 
<18.*400>!<21.> SECOND. DATA WORD 
0 ; THIRD pATA WORD 
0 ‘FOURTH DATA WORD 
(26. *2000>!¢18.*40>!<21.5 :FIFTH DATA WORD 
BR 12 ;CONTINUE WITH SET UP ; 
j 
118: g 
ISR RO, J#FLHEAD ;SAVE HEADER DATA IN WRFROM 
WRFROM “LOCATION WHERE SAVED 
5 : NUMBER OF aHORDS SAVED 
10632 :FIRST DATA WORD 
(18. *400>!<21.> SECOND DATA WORD 
9 ; THIRD pATA LIOR 


0 ‘FOURTH DATA ObRO 
£26. #2000) !<19.#49>!<21.$ sFIFTH DATA WORD 





DZRIJ-A, R&ON/S/& FUNCT. CONT. TST-PT 2 MACYL1 27(65S) 30-NAR-76 18:59 PAGE S2 
Ti LAST SLOCK TRANSFERED-RHDS! LBT 
les: 
:#FILL READ INTO BUFFER WITH ALL ONES 
o04037 932654 JSR RO, J#CLAREA : CLEAR 256 WORDS FROM REINTO 
003434 REINTO STARTING F M REINTO 
ba0256 256 256 WORDS 


177777 a | iFILL WITH -1 





in a ren geen = 


MNDEC-1i-DZRJIJ-A, RFOW/S’& FUNCT. CONT. TST-PT 2 
ZRIJA.PL1 LAST SLOCK TRANSFERED-RHDS! LBT 


truruorururororu 


GIGIGICIGIGIG) 
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;*DRIVE TYPE IS CHECKED AND THEN THE APPROPRIATE 
;*WRITE HEADER AND DATA COMMAND IS LOADED 


5 RRRARAA RRA RAL RAAK LAE ALKL LAE LLERELEELE ELAR EREL ERR EREEK EELS 
TST 


; TEST FOR na DRI 
; TREAT 


VE 
UNIT AS RPCY 


ert TTT TIT TT ITT TTT TTT TTT eT iter erti titer eTett Tri ttt ty 


WRF ROM 


0 
FMT22 
WRIFOR 


BR 
73: 


WRF ROM 


Q 
FMT2e 
WRIFOR 


8$: 


;SETUP TO ne FOR DATA COMMAND 
:CYLINDER 814 
; SECTOR el 


18. 
SWORD coun (DATA) = i + 
34 HEADER WORDS 
;BUS ADDRESS 
: STARTING ra OF DATA 
:BUFFER = WRFR 
300 NOT INAIeE BUS ACDRESS INCREMENT 
316 BITS PER ORMAT 
00 NOT INuBIT ECC CORRECTION 
:D0_NOT aby th ho 8 tat COMPARE 


:GET READY WRIFOR 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 
;CONTINUE WITH TEST 


;SETUP TO on FOR DATA COMMAND 
Ba a 10. 


18. 
:WORD COUNT (DATA) = 1 + 
4 HEADER WORDS 


DORESS 

STARTING 6 ADDRESS OF DATA 

$00 NOT INNIBIT BUS ADDRESS INCREMENT 
ITS PER WORD FORMAT 

00 NOT INHIBIT ECS CORRECTION 


:00 i! INHIBIT eres COMPARE 
TQ DOA WR 


GET READY WRIFOR 
: WRITE HEapeR ANC DATA WITH &2 IN RHCS1 


;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 


JSR 
RHWC 
SAVERE 








3 SAVE REGISTERS 
;RHWC_IS THE FIRST REGISTER SAVED 
SSTARTING ADDRES OF WHERE 












MNOEC=11-DZRJJ-A, RPOW/S/& FUNCT. CONT. 
ZRIJ9.P11 li LAST SLOCK TRANSPERED- Tefosi LBT 





MOS 
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SES 0102 









; THE REGISTERS ARE SAVED 
18. NUMBER | nn 


: 












JSR PC, JHCHECKT ;CHECKS DVA,RDY,MOL DPR,ORY AND VV = ! 
:AND THAT ALL STATUS BITS ARE = 0 

TYPE  ,CPHALT ; CANNOT CONT ENTE TeeTHNG IF NOT 

HALT TEST 





MOV O#RPYVEC,ARPVEC ; :SET RPOY verre ADDRESS 
310 a fa IF P-CLOCK IS PRESENT 
39R TO *TIME2’ ‘i P-CLOCK IS NOT THERE 
; TIME’ WILL ONLY SAVE 
: CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


MOV a sHRIEOR -(SP) ;GET READY TO MOVE COMMAND 
BIS #GO! TE, (SP) :GET READY TO SEI GO AND 


zENAGLE INTERRUP 

MOV (SP) +, IRHC 51 TH 
IN RHCS1 FOR WRITE HEADER AND DATA 
if INTERRUPT ENABLED 


;*TIME IS NOT CRITICAL HERE 




























WAT ;WAIT FOR LBT BIT TO SET 

RHDS1_- WAIT FOR RHDS1 REGISTER 

1 ae :WAIT FOR L8T BIT IN RHDS1 REGISTER 
2500. ;ALLOW 38000 MICRO SECONDS 

e500. ;LET MUST SET B 





00 AND 50000 MICRO SECONDS 
;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC s SAVED REGISTER TO CHANGE 






















JSR RO, d#F ILLRE ;MOV_WRFROM+<S¥2> INTO SAVED RHBA 
RH : SAVED mets Ten TO CHAN NGE 
WRFROM+<S#2> ;DAT 












JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ;CHANGE RHDS1 REGISTER 








1 3d BIT/BITS TO BE CHANGED 
1 ;NEW VALUE OF LBT IS 1 
LBT CHANGE LET BIT 












JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCA :CHANGE RHCA REG™STER 


3] BIT/BITS TO BE CHANGED 








1 









DZRIIA.P 







72 012074 
a 012076 
: 75 012100 


e376 012104 
2377 012106 






SR ed 


MNOEC= . 


fit 


000001 
000001 


004037 


002294 
020000 


004037 
004512 
Olelse 


104045 
000207 


RFO4/S/& FUNCT. CONT. e 
LAST BLOCK TRANSFERED-RHDS1 LBT 


032706 


034062 


‘TST-PT 


1$: 


arto 
JSR 
RHDST 


**COMPARE ALL REGISTERS 


JSR 
SAVERE 
W 


MACY11 27(655) 


RO, J#F ILLRE 


RO, J#COMREG 
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;NEW VALUE OF BITO IS 1 
CHANGE BITO BIT 


;MOV 0 INTO SAVED RHDST 
i SAVED REGISTER TO CHANGE 


;COMPARE SAVED REGISTERS WITH 
: PRESENT Mee 


R 
:G00D DATA SAVED IN ‘SAVERE’ 
sTest DATA STARTING FROM ’RHWC’ 
REGISTERS TO ES COMPARED 
RETURN TO I$ ON ERROR 
;RETURN TO 25 ON NO ERROR 


;WRITING ON THE LAST BLOCK 
:IE. CYLINDER 410. /814., SECTOR 21 
TRACK 18 CAUSED 

: IMPROPER g afuee ti CHANGE 

GOOD DATA GIVES W 

:SHOULD BE THERE 

; RECEIVED ae GIVES WHAT 
;WAS THERE AFTER WRITE 
:ON LAST BLOCK 








: 


3 
- 
- 
3 
w 
- 
- 
wi 
- 


~ 
- 
= 
4 
= 
- 
= 
~ 
+ 
- 
= 
bod 
— 
— 
= 
~ 
= 
- 
~ 
— 
. 


ty 
4 
3 
. 
$ 
< 
= 
] 
$ 
§ 
-= 
3 
a 
: 
= 
z 
= 
5 
i“ 
4 
: 
3 


Py yyy yy 
sie 


sea 
+00 *0--0 <0 9-8 
Cot wo 
ee ee ee ee 
Cregenrentes 


$itLaita 
“* 
cng 
7 en 
Coetete 
coverwat 


“0-0 
Com 405 


oe | 


4. 
DCA DC DTU RPT NT ene ereerrarrareeatase 


[oe 


4 


ht 


Eb £24 ee 
*0-+0-+*6 +0 +0 + 
TTAPIAUI ALATA 
Woe +-* . 


= CIOIGIGIGIOIGY 


C000 SOP UE Go 


qmoonomnows 


fh 


- 


4 
4 


COTU TUTTE TUTTE TU TU TUTUTUITUITUNTU DTU DEUNT ITU Dee ae eae nee nes Herter errant 


a32°5° 
ws 


to 
© 
2 
: 
oy 
5 


cw 
oct 
wit 


- 
5355 
=x=-.5 


204027 
we! 
se 13h 
tte + 4 

wES 

ASD 
‘ oe == 
2 f 400 
003434 
FRAAANA 
wee ee 


ATAAAR 


wewwwe 


002346 


832008 


pitied 


———=— = 


fw 


ww 





BO9 
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“FRONSFERED- RHDS1 LST : 


;®NOW A READ DATA WILL BE DONE ON SAME CYLINOER, SECTOR & TRAC 


:*#CLEAR ANY PREVIOUS ERRORS 


ISR = PC, OMCLDISK ©: SET_BI-RHCSI, R2-RHCSE 
;RE-RHOS1, RY-RHERL 
PaIvE PH-11 INITIALIZ 
rSETLP UNIT NUME 


s#FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR. RO, 38 LHEAD ;SAVE HEADER DATA IN WRFROM 
WRFROM SLOCRTION WHERE SAVED 
gee a sNUMBER OF WORDS SAVED ear 
€6. #2000 $< 38. #4U>! «eal. FIRST Cn 
JSR. RO, aBCLAREA ;CLERR 256, WORDS, FROM WREROMSe 
WRFROMS2 5 yobRL ART aNe FROM MRFROMe2 
ess. 3256. WORDS 
C sPILL WITH O 
;#FIRST THE ORI\ 


IVE TYPE IS CHECKED AND THEN THE APPROPRIATE 
teREAD. obamaNe. TS LOADED 


SSRSSATLALSSASESSTAERSSSASESSLESLLFALELSF ASFA TLELAFSLEFSPEL FLL LLAS 
TST QaRPOG§ ; TEST FOR RPOG DRIVE 
BQ TREAT UNIT AS ROS 

+ ERE E EEE EEEESEOEEEESEESSEEEEEREE SERED EEEEEREEEEEEEEE 


C,aaRUN sSETY N FOR DATA COMMAND 


R 
21 
18. 


—~Cozmamm 
oc, 
OOr- 
S 


S OF DATA 


YO0r-OOWMW = —MNOU 
a 
Gc 
LwDpw-4 


COWoc 
<~22z 02 
~ei iin 


t 
1 
: 
ADY 
‘into 
ONTINUE WITH TEST 


4) 
=z 
= 
mJ 
tf x 
Tipe s we ee ee ee ee ee ee ee weet ass 
ne 


sREAD 9D 
BR 10$ ; 


oO -—-4 
D 


JSR RO, 28RUN sSETUP TO RUN FOR DATA COMMAND 


ee ee eee ee ee 





US ADDRESS INCREMENT 
ORMAT 








ae wee tee Se ee. 





DIR I-8, S24 S FUNCT, MACY11 271655) 3O-NAR-7§ 18:59 PAGE 57 
6:1 pb RLBst Shs Pbinstbeep rider cer ; 
012229 000632 er : ocr ae 
wecese. tc? . U eae H ‘ . 
Alsen 2 (32 i : 
DISSES .r7AhG aes a 
Siiize CO REINTO :BUS ADDRESS 
ISTARTING ADORESS OF DATA 
;BUFFER = REINTO 
012230 500000 0 :00 NOT INHISIT BUS BOQRESS INCREMENT 
Bigese 515000 FT22 16 BITS PER WORD F 
00 NOT INHIBIT Ecc ¢ SERECTION 
00_NOT INHIBIT HEROES SOMPARE 
012234 202345 REQDAT -GET READY TO Do A 
READ DATA WITH 70 IN RHCSt 
012236 108: 
re SAVE REGISTERS FOR COMPARISON GER READ DAT 
212236 OOS037 232152 $s RO, SAVER AVE REGISTERS 
Sizes= c2172 RHWC *RHC IS THE FIRST REGISTER SAVED 
Sizz4s 554612 SAVERE STARTING ADDRES OF WHE 
ais THE REGISTERS ARE SAVED 
7S OLEE4S §«000022 18. AUER Of {REGISTERS 
7S / 
E47? 012250 OO4727 033064 JSR = PC, DBCHECKT SCHECKS QVA,RDY, MOL OPRAORY GND vv = 1 
BA Be aioe | R SAND THAT ALL StaTUS Sits ARE = 
E475 O12254 104400 Oséee2 TYPE =, CPHALT ;CANNOT GONTINUE TESTING IF NOT 
e480 12260 6900000 HALT TOP T 
E481 C12 OL3°77 ocoysos 1b7675 MOV QBRPYVEC, SRPVEC ;SET. BFS "yECTOR ADDRESS, 
evse :TO 'TIMEL’ IF P-CLOCK IS PRESENT 
2453 :0R TO TIMES’ IF F-CLOCK IS NOT THERE 
E484 :°TIME* WILL ONLY SAVE 
E455 : CURRENT CYLINDER ADDRESS 
E455 : :AND LOOK AHEAD REGISTERS 
—tel~Ts 
| 2488 12270 D13746 02346 MOV 2eRERDAT 5(SP) ;GET READY TO MOVE coMmaND 
2485 SIEE74 582718 SOSIo1 BIS —s- aGOF TE, (SP) :GET READY TO SET GO AND 
| 2456 ENABLE INTERRUPT 
2451 012300 912677 i87674 MOV (SP)+, aRHCS] 360 WITH 
| BHSE ;70 IN RHCS1 FOR READ DATA i 
| Ease LitTH INTERRUPT ENASLED 
ows 
| aE ;#TIME IS NOT CRITICAL HERE 
487 012204 104412 WAT WAIT FOR ROY _SIT TO SET 
e432 (31255e 52250 RHCS! :WALT FOR RHCS] REGISTER 
| Eess C123I0 550200 ROY WAIT FOR ROY BIT IN RHCS1 REGISTER 
| BoC 912212 o01614 308 TALLOW $080 MICRO SECOND 
«gel Sf2314 O01sd2 e34 50) MUST SET BETWEE > 
_— «ERSE AND 17420 MICRO SECONDS fA 
e504 ;*#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE ‘y 
z55E | 
2507 C1236 004037 032708 JSR RO, D#FILLRE =; MOV O INTO SAVED RHNC 


ee 


[tr ee 


MND eos: L2-DZRII-A, RFOY 
DIRITALE LL hha 

20g 912322 902172 
S55S O12324 905000 
2510 
2511 . 
S512 012228 00403 
2513 012332 O02174 
e519 018334 004434 
esis 
Sei? O1233& OO4037 
3518 S12342 002222 
3539 012344 000001 
S21 C1is4é 990001 
e522 018350 502000 
2524 012352 004037 
ess 0]2356 O0z2212 
226 
2527 012260 90000: 
2528 O12362 900001 
ess 012364 900501 
2530 
2521 912366 904027 
2532 012272 552254 

| 2523 512374 O00 
zit 
2335 
es3t 
sav 
2528 O1237& 004037 

| He 

| 2540 o12402 oo4s12 

| BS4l O1ee0S 902254 

| BES2 Olssce O05022 

| e543 Diesi2 O1e414 

| 9544 Ols4i2 O1e4e0 
E45 

| BESE 
2547 912414 LO404s 
esy2 Clisic 800207 

| Beys 

«BESO 

«EESTI 

_ «~geES 

| BSE 

| 2s4 

| BEES 

| BREE 

| EEE? o12420 

| 

_ «<€E52 giedec § Cos027 

| g560 Qlete4 002370 
SSE] Sii4ze 663434 


022706 


033674 


032708 


n2unne 
we wee 


4$; 


CONT. TST-F 


T. Té 
LOCK TRANSFERED- “RHOS1 LBT 


09 
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RHWC . SAVED REGISTER TO CHANGE 
0 sDATR 





bl RO, JaFILLRE s;MOV_REINTO+<256.#2> INTO SAVED RHSA 
;SAVED REGISTER TO CHANGE 
REINTO#< 256. #2) ;DATA 


JSR RO, JaCHREG sCHANGE BITS IN SAVED REGISTER 
RHOS! :CHANGE RHDSI REGISTER 
l +] BIT/BITS TO BE CHANGED 
! NEW VALUE OF LET IS 1 
Ler CHANGE L LST BI* 
ISR RO, JaCHREG sCHANGE BITS IN SAVED REGISTER 
RHCA :CHANGE RHCA REGISTER 
l 1 BIT/BITS TO BE CHANGED 
1 ea VALLE OF BITO IS 1 
BITO :CHANGE SITO BIT 
JSR RO, SeF ILLRE sMOV OQ INTO SAVED RHDST 
RHOST :SAVED REGISTE® TO CHANGE 
fe :DATA 
s#COMPARE ALL REGISTERS 
ISR RO, JBCOMREG :CONPARE $8 SAVED REGISTERS WITH 
SAVERE :G00D DATA Age VED _IN LSAVERE” 
we -TEST DATA STARTING FROM 'RHWC’ 
19. :18. REGIST RS TO SE COMPARED 
3§ *RETURN TO 3$ ON ERROR 
ug :RETURN TO 4$ ON NO ERROR 
ERROR 45 ;READING ON LAST BLOCK IE. 
et : CYLINDER 415.7 14. . SECTOR 21, TRACK 18 


RO 
;G00D O Dara GIVES WHAT SHOULD 


:BE T 

s RECEIVED i: GIVES WHAT 
WAS THERE AFTER READ 

PROM LAST BLOCK 


s#READ DATA WILL BE COMPARED 
ISR RO, JaCOMPAR sCOMPARE TWO BLOCKS OF MEMORY 


WRF ROM ;G00D DATA STARTS FROM WRFROM 
REINTO ;TEST DATA STARTS FROM REINTO 


— 


- 


EE EEE 


ee re me ee = oe 





MNDEC- zip rDDRII-8, RPM: S“6 FUNCT. CONT. TST-PT MACY11 27(655) 30-NAR-76 18:59 PAGE $9 
DZRITA.Pil LAST BLOCK TRANSFERED- TRfns1 LBT 

2562 012430 00400 256. :256., WORDS TO BE COMPARED 

Ssss 512432 012436 o$ :RETURN TO S$ ON ERR 

2e¢3 o12434 012442 3 RETURN TO &% CN NO BRROR 

} =) 

SEcE : 

S567 O12426 104046 S$: ERROR 4& ;DATA READ FROM 

esse O1348C Of0ic? RTS PC “LAST BLOCK IN ERROR 

$352 5) sous os 

5é>5 

2s73 





MUTUTUTUTUTUTUrO ro rUrorurororne 


t 
CUUTONOUNTOT UNTO UT OOOO anni 


000000000 0. OD OWO Mo wMwowMmM 
IO UN £ Gotu (9.000 ~ U1 Gotu 


SCP UE Gon ©.000 SOUT £ ono 


rororofur 





-DIRII-A, 804 
; 413 


g0208% 


wee 


094737 


004737 


104400 
000008 


013777 


+ OO 


Uv TST-PT 2 
LAST 8L0 nek TRANSFERED- “RHDS1 LBT 
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£ RS RRAA KAA A RAR ALAA RARE LAA REL EAR ELSE LE LAA SRLS L FS ALFLERELF SASS 


er ae eee es 


:€TEST 12 SEARCH COMMAND 
+ THE SEARCH COMMAND WILL BE DONE ON CYLINDER 0 
:% THAT IS STARTING WITH A RE 
1 * THEN HEADER AND DATA WILL BE WRITTEN FOR SECTOR 0 AND ! 
2 i ALL REGISTERS WILL BE CHECKED 
te A SEARCH COMMAND WILL BE GIVEN FOR SECTOR O 
+ ON INTERRUPT SECTOR 1 HEADER AND DATA WILL BE |! READ 
:* ME WILL BE CRITICAL AS THE TIME TAKEN TO 00 THE 
1% READ IS THE ONLY INDICATOR THAT THE HEADS WERE ON 
:* SECTOR O AT INTERRUPT TIME. TIME ALLOWED IS MAXIMUM 
3e. OF 1500 MICRO S 
< THEN ALL REGISTERS ARE CHECKED AND DATA READ 
1+ IS CHECKE 
= © SHESSESERSSRSERS REE SHELL EELESRESESLEF ERASERS SESE SEAS SE LSE FESS FLFAE 
t§T12: §C0 
991900 MOY sRESET STACK 
f000i2 oo4sc4 MOV :SAVE TEST NUMBER 
023004 ISR SET _R1-RHCS!, R2-RHCS2 
'RI-RHOS1. R4RHER? 
:GIVE RH-} INITIALIZE 
“SETUP UNIT NUMBER 
{2GET HEADS | 10. CYLINOER b 
923064 FSR CH ECKS DVA,RDY.MOL.DPR.DRY AND VV = 1 
AND THAT ALL status arts ARE = 9 
séeee2 TYPE :CANNOT CONTINUE TESTING IF NOT 
HALT :STOP TEST 
QO4¥SO& E7464 MOY DERPYVEC, DRPVEC :$E7 RPOY VECTOR ADDRESS 
-TO °TIMEL’ IF PoCkOCk TS PRESENT 
;OR TO TIMES’ IF B-CLOCK IS NOT THERE 
TIME’ WILL ONLY SAVE _ 
PCURRENT CYLINDER ADDRESS 
[AND LOOK AKEAD REGISTERS 
002326 MOV SeRE CALI ar (SP) :GET READY TO MOVE COMMAND 
900151 eIs T READY TO SEI 60 AND 
PNABLE INTERRU 
1s74b2 MOY +9 ITH 
IN RHCS! FOR RECALIBRATE 
Afra INTERRUPT ENASLED 
WAT :WAIT FOR RDY BIT TO SET 
RHDS1 *WAIT FOR RHDSI REGISTER 
RDY “WAIT FOR ROY BIT IN RHOS! REGISTER 
S600. “ALLOW 56000 NEGRO SECONDS 
5599. :RDY MUST SET 


:10 AND 111990 AISRS SECONDS 








ones Basia $6 


saath COMMAND” 
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ISR PC, JeCLDISK : $67 RI-RHCS1, i, Re-RHCS2 
a ie os a INITIALIZE 
SETUP UNIT NUMBER 


;*FILL WRITE FROM SUFFER WITH HEADER 


JSR RO, J#FLHEAD :SAVE HEADER DATA IN WRFROM 

WRFROM ‘LOCATION WHERE SAVED 
:NUMBER OF WORDS SAVED 

10000 :FIRST DATA WORD 

9 :SECOND DATA WORD 

0 : THIRD DATA WORD 

0 ;FOURTH DATA WORD 

FILL WRITE FROM BUFFER WITH DATA 

ISP RO, J&CLAREA ;CLEAR 256. WORDS, FROM WRFROM+10 

WRFROM+10 “STARTING FROM WRFEROM+10 

2ss. .256. WORDS 


:FILL WITH O 





:¥FILL WRITE FROM SUFFER WITH NEXT SECTOR HEADER 
RO, J#F LHEAD sSAVE HEADER DATA IN WRFROM+<260. «2> 
Arrows 386. #2) LOCATION WHERE SAVED 
s NUMBER iF WORDS SAVED 
Tooog 0 
} EER aND DATA WORE 
8 : THIRD DATA WORD 
0 :FOURTH DATA WORD 
s#FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA 


JR RO, J8CLAREA :CLEAR 4 WORDS FROM WRFROM+< 264, #2) 
RFROM+< 264. #2> a ARTING FROM WRFROM+< 264. ¥2> 


i" 34 WOR 
1 sFILL WITH 1 


;#CLEAR READ INTO BUFFER WITH DATA OTHER THAN EXPECTED DATA 


ISR RC, J#CLAREA ;CLEAR 260. WORDS, FROM REINTO 
REINTO ; STARTING FROM REINTO 

260. WOR 

377 tFTLL WITH 377 


;*THE WRITE HEADER AND DATA WILL BE LOADED 


JSR RO, J8RUN ;SETUP_TO RUN FOR DATA COMMAND 
0 CYLINDER 0 





MNDEC=11-DZ2RIJ-A 
D2RITA.PLI ti2 
2736 
2737 
5739 
e738 (Ol274O 013746 
e7aa =Ole744 052716 
2741 012750 011837 
ecg 912754 922600 
Ts 
e744 012756 901405 
e745 Ole76C 910037 
2746 O12764 010137 
ald 012770 104021 
2748 012772 012746 
2750 012776 011637 
ec3l 013002 9522605 
2753 013004 01405 
2754 013006 010537 
2755 013012 019337 
e738 613016 104063 
2758 013020 
e7s 
2750 
2761 
2762 013020 004037 
2763 013024 002172 
2764 912026 900000 
275 
2766 
2767 013030 004037 
2768 013034 002174 
769 9330326 9O03420 
eae 
f¢ 
2772 013040 004037 
3773 «012044 902204 - 
2774 913046 doddd2 
2775 
2776 
5777 
2778 
2773 
2720 012050 004037 
2781 
2782 013054 o04s12 
2783 013056 o02254 
2784 913960 d00d22 
2785 013062 01306 
| 2786 012064 013072 
| 2787 
2798 
| 2763 012066 104027 
| 
| 


002344 
004101 
001124 


001126 


004500 


032706 


032706 


032706 


034002 


RFOW/S S FUNCT. CONT. 
SEARCH 


COMMAND 
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; #COMPARE CONTENTS OF RHCS1 AND RHOS1 ALREADY SAVED IN 
:*#RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MOV DHWRIFOR,-(SP) ;SAVE COMMAND 
BIS sIE!DVvA!GO, (SP) s INCLUDE TEz0vAs G0 
#$GDDAT SAVE 


MOV (SP) : FOR PRINTOUT 
CMP (3p)4°RO “DURING ABOVE OPERATION ONLY IE!DVA'GO 
“AND COMMAND SHOULD BE SET 
BEQ 673 :BRANCH IF GOOD 
MOV RO, J#SSDDAT :BAD DATA 
MOY R1; J#REGADR ‘FAILING REGISTER RHCSI 
ERROR 21 ; DURING ABOVE OPERATION 
“COMMAND AND IE'DVA!GO SHOU p BE S 
87S: MOV #MOL! DPR! VV, -(SP3 -SAVE BITS SET DURING BEERAT rrON IN HDS! 
MOV (SP), J#$GDDAT i SAVE FOR PRINTOUT 
CMP (5P)4+,R5 ‘DURING ABOVE OPERATION ONLY MOL!IDPRIVY 
:SHOULD BE SET 
BEQ 635 : BRANCH IF €00D 
MOV ©, J#SBDDAT :BAD DATA 
MOV BS’ J#REGADR -FAILING REGISTER RHDS1 
ERROR 62 :DURING ABOVE OPERATION ONLY 


;MOL!IOPR!IVY SHOULD BE SET 


§9$: 
:*NOW CHANGE SAVE REGISTERS TO EXPECTED .ALUES 
JSR RO, J8F ILLRE ;MOV O INTO SAVED RHWC 
RHWC saavED REGISTER TO CHANGE 
JSR RO, O8F ILLRE sMOV_WRFROM--< 268. ¥2> INTO SAVED RHBA : vA 
ne : SAVED REGISTER TO CHANGE 
uRERONG. 268. *e> :;D4TA , 
JSR RO, J#FILLRE sMOV 2 INTO SAVED RHDST 
RHDST s SAVED REGISTER TO CHANGE 
;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
:#WITH REGISTERS AFTER COMMAND 
JSR RO, deCOMREG : COM eRE aaven REGISTERS WITH 
SAVERE :G00D DATA SAVED IN ' * SAVERE" 
We TEST DATA STARTING FROM *RHWC 
18. 13. RG ISTERS TO Be COMPARED 
1$ ;RETURN TO 1$ ON ERROR 
2s : RETURN TO 2$ ON NO ERROR 
1$: 27 ;WRITE HEADER AND DATA 











wetahiin “8, RFOWS/’6 FUNCT. CONT. 


2 JJA.P 


ti2 SEARCH COMMAND 


fees 013870 000207 


e811 
23 


furururore 
cococomo 


013072 
013072 


013132 


004737 933004 


004037 O347E& 
000009 


000 
177770 
003434 


000009 
014000 


002334 


004037 033152 
002172 
004512 


o000e2 


013746 002350 
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2$: 


.;*BUT BEFORE THAT ALL POSSIBLE REGISTERS 





























SEQ 0112 


Ris pc CAUSED IMPROPER REGISTER 
: | ; 6000 DATA GIVES WHAT SHOULD 
:BE THERE 


;RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER COMMAND 


3*NOW A SEARCH COMMAND WILL BE GIVEN 


*WILL BE FILLED FOR THE READ HEADER eon mn SECTOR 1 
;*AS THERE WILL NOT BE MUCH TIME BETW 
:®COMPLETION OF THE SEARCH AND THE SECTOR. i COMING. 


;*FILL FOR_THE READ HEADER sg A COMMAND WHICH WILL NOT 


at SEARCH WILL ONLY LEAVE RHCS1 AND RHOST 
Z¥CHANGED ALL THE REST WILL BE UNCHANGED 


JSR PC, J#CLDISK :SET R1-RHCS1, Re- -RHCS2 
-R3-RHDS1, RY-RHERI 
: GIVE Bret Tita IZE 
:SETUP UNIT NUMBER 


JSR RO, J#RUN :SETUP TO FUN FOR DATA COMMAND 
-BYTE 0 ; SECTOR 0 
"BYTE O TRACK O 
-8. : WORD COUNT = 8. ae, 
REINTO :BUS ADDRESS 
: STARTING ADDRESS OF DATA 
:BUFFER = REINTO 
0 :DO NOT INHIBET BUS ADDRESS INCREMENT 
ECI!FMT22 -15 BITS PER WORD FORM 


s INMIGIT ECC CORRECTION 
: ;00 NOT INHIBIT HEADER COMPARE 
SERCH SGPT READY. 10.00. A SERCH 

;SEARCH WITH 30 IN RHCS1 


;*SAVE REGISTERS FOR COMPARISON NOT AFTER THE 


- SEARCH COMMAND BUT AFTER THE READ HEADER AND DATA 
3SR RO, JH#SAVER ;SAVE REGISTE 
RHWC *RHWC IS THE FIRST REGISTER SAVED 
SAVERE :STARTING ADDRES OF WHERE 

s THE REGISTERS ARE SAVED 
18. :NUMBER OF REGISTERS 

:SAVED = 18. 


;*NOW SAVE VALUES FOR RHCS1 AND RHDST WHICH 
:*WILL CHANGE AFTER THE SEARCH 


MOV QeREFOR,-(SP) ;SAVE READ HEADER AND DATA 








ozRIIa.P11 


eae 013230 
e878 013236 


esss Ol3e44 
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ti2 SEARCH COMMAND 
0527.6 999101 Bis #1E!G0, (SP) s TERT ENABLE E AND GO 
$ 
078835 ABCRST oo4ess Noy #1, a8TMPS VE HRA § 0 OB Hae 1 FOR RHOST 
:¥THE INTERRUPT VECTOR WILL BE SET TO GO TO 2% 
“*AFTER THE SEARCH 
012777 013222 187004 MOV #73, IRPVEC SET INTERRUPT VECTOR TO 2$ 
004737 033064 JSR PC, JECHECKT s CHECKS BVA. RDY,MOL.DPR, DRY AND VV = 1 
:AND THAT ALL STATUS BITS ARE = G 
104400 oS&662 TYPE —_, CPHALT CANNOT CONTINUE TESTING IF NOT 
500000 HALT :STOP TEST 
913746 002324 MOV DRSERCH,-(SP) | ;GET READY TO MOVE COMMAND 
O52718 9809101 BIS #GO'TE, (SP) -GET READY TO SET GO AND. 
ENABLE INTERRUPT 
012677 186770 MOV (SP)+, IRHCS1 TH 
WITH INTERRUPT ENABLED 
s*TIME IS NOT CRITICAL THIS ONLY WAITS FOR SEARCH COMPLETION 
104412 WAT ;WAIT FOR DRY BIT TO SET 
002222 RHDS1 _ :WAIT FOR RHDS1 REGISTER 
alslarJalal DRY :WAIT FOR ORY BIT IN RHDS1 REGISTER 
901814 308 SALLOW $080 MICRO SECONDS 
061507 §39 :DRY MUST SET BETWEEN 
690 AND 17470 MICRO SECONDS 
012737 o00000 177776 73: MOV #0,PS ;SET PROSESSOR STATUS TO 
“PRIORITY O IN CASE IT WAS 
; TOKEN ou OF WAT ROUTINE 
013777 OO4ES& 1ES74E MOY Q#TMPS, IRHDST SET DESIRED SECTOR/ TRACK 
*REGISTER TO SECTOR 1, TRACK C 
013777 OO4SOB 168722 MOV DBRPYVEC, ORPVEC ;SET RPOY VECTOR ADDRESS 
-TO "TIMEL’ IF P-CLOCK IS PRESENT 
OR RTO "Time. if IF P-CLOCK IS NOT THERE 
CURRENT ENCINDER ADDRESS 
:AND LOOK AHEAD REGISTERS 
013777 OO4ESO 166726 MOY J#TMPO, IRHCS! SPILL. RHCS1 WITH READ COMMAND 
TOGETHER WITH INTERRUPT ENABLE 
AND GO 
;4TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR 
?*INDICATES WRONG SEARCH IN THE SEARCH COMMAND 
104412 :WAIT FOR RDY BIT TO SET 
002200 HAcsi ;WAIT FOR RHCS! REGISTER 
ood200 RDY WAIT FOR ROY BIT IN RHCS1 REGISTER 
000225 149. "ALLOW 1490 MICRO SECONDS 
elalsleler 2. "ROY MUST SET BET 


BETWE 
; 2470 AND 1510 MICRO SECONDS 




























SES 0113 





re ee ee ee 


———— 
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DZRITA.P1) tie2 SEARCH COMMAND 
2398 
2593 ;*WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA 
2901 013264 004037 032630 ISR RO, J#F LHEAD :SAVE HEADER DATA IN WRFROM 
2392 913270 002370 WRF ROM s LOCATION WHERE SAVED 
2903 013272 090004 "NUMBER OF WORDS SAVED 
2904 913274 910000 100c0 PRET DATA WORD 
2995 O13276 o00001 1 *SECOND DATA WORD 
2905 913300 900000 o ‘THIRD DATA WORD 
e200 61330e 990000 0 FOURTH DATA WORD 
a 
2309 913394 904037 o32654 ISR RO, J#CLAREA :CLEAR 4 WORDS, FROM WRFROM+<4%2> 
2319 0133i0 o02400 HRF Rote CHE sSTARTING FROM WRFROM+<4*2> 
2911 Ols3ie oo0004 
29!2 913314 oo0001 - 1 FILL WITH 1 
BE 
e218 :¥CHANGE SAVED REGISTERS TO EXPECTED VALUES 
29:7 013316 004037 032706 ISR RO, JHF ILLRE :MOV_0 INTO SAVED RHWC 
2918 013322 002172 RHWC :SAVED REGISTER TO CHANGE 
2919 013324 ooddo0 :DATA 
a 
2922 013326 o04037 022705 ISR RO, JHF ILLRE :MOV_REINTO+<9.%2> INTO SAVED RHBA 
2923 913332 002174 : SAVED REGISTER TO CHANGE 
2924 013334 o034s4 BE ENTOS<B. *2) ;DAT 
2927 013336 004037 032706 ISR RO, J#F ILLRE :MOV 4272 INTO SAVED RHCS1 
2928 013342 902200 RHCS1 :SQVED REGISTER TO CHANGE 
2928 013344 Oo4e72 4272 :DATA 
aa 
2922 012246 oO04037 032706 ISR RO, HF ILLRE ;MOV_2 INTO SAVED RHDST 
2933 Oisss2 092204 RHDST s SAVED REGISTER TO CHANGE 
2924 013354 900002 : DAT 
sae 
2937 :*COMPARE REGISTER BEFORE READ HEADER AND DATA 
2938 WITH REGISTERS AFTER COMMAND 
Sac 
2941 013356 004037 o34002 ISR RO, JHCOMREG ; COMPARE SAVED REGISTERS WITH 
2942 : PRESENT VALU E 
2943 913362 o04s12 SAVERE : GOOD DATA SAVED IN ‘SAVERE’ 
2944 013264 O022c4 We :TEST DATA STARTING FROM BHC” 
2945 013366 o00022 18. 18. REGISTERS TO 2 COMPARED 
2946 013370 0133274 3$ ?RETURN TO 3% ON ERRO 
e347 013372 0123400 4g :RETURN TO 4S ON NO ERROR 
2949 013374 104021 ERRC? 31 ;READ HEADER AND DATA CAUSED 
2950 013376 000207 RTS PC : IMPROPER REGISTER 





CHANGE 
:GO0D DATA GIVES WHAT SHOULD 





SES 9114 








MNDEC=11-DZRJJ-A, RFO4/S/& FUNCT. CONT. 
7RITA.PL t12 SEARCH COMMAND 


S858 013400 
5826 013400 004037 035032 
62370 


0 
2965 013414 Ol3ee 


2968 013416 104053 
e969 013420 000207 
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;BE THERE 
RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


:*NOW READ INTO SUFFER WILL BE CHECKED TO SEE 
;*THE READ WAS GOOD 


4$: 
JSR RO, JHCOMPAR :COMPARE TWO BLOCKS OF MEMORY 
WRFROM :G009 DATA STARTS FROM URE Rott 
REINTO TEST DATA STARTS FROM REINTO 
3. 23.. WORDS TO BE COMPARED 
S$ -RETURN TO S$ ON ERROR 
53 *RETURN TO &$ ON NO ERROR 

S$: ERROR 53 :READ HEADER AND DATA 
RTS PC ‘AFTER A SEARCH CAUSED 

i :AN ERROR 







MNDEC-i1-DZRJJ-A ada FUNCT. CONT. TST-PT & 


SEARCH COMMAND 


: © SRS LL KAA ARASH LA ALA KRALL E KE KH HALLER ERK KL ARF RALEE LAKE REEL KFHFFE 
:4TEST 13 SEARCH COMMAND 


ME HE HK IK IK IK ic i te 


1 Se ipa > gaa ec oacen pang topper api mene nya tap 


BEATS co¥sos 
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MACY11 27(655) 





SEQ C116 














THE A} THING NEW IN THIS TEST IS AN IMPLIED SEEK 
IN A SEARCH COMMAND 

THE HEADS START FROM CYLINDER 10 BY A SEEK 

is GIVEN A SEARCH SECTOR C TRACK O CYLINDER 0 


I 

THEN A READ COMMAND IS GIVEN FOR 
CYLINDER O TRACK 0, SECTOR 

TIME FOR THE READ IS THE ONLY INDICATOR . 
OF CORRECT ge 













iy #STACK, SP :RESET_STACK 
#13, a8TSTNM :SAVE TEST NUMBER 
ISR PC, JHCLDISK SET R1-RHCS1, R2-RHCS2 











ig Vv 
;SETUP UNIT NUMBER 
:#GET THE HEADS TO CYLINDER 10 





ISR PC, J#CHECKT :CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
“AND THAT ALL STATUS BITS ARE = 0 
TYPE —,CPHALT ; CANNOT CONTINGE TEST ENG IF NOT 






TE 
MOV D#RPYVEC, AIRPVEC ; SeET RPOW VECTOR ADDRESS 
:19 "TIMEL’ IF P-CLOCK IS PRESENT 
R TO *TIME2’ i P-CLOCK IS NOT THERE 
TIME? LL ONLY SAVE 
; CURRENT CYLINDER ADDRESS 
: AND LOOK AHEAD REGISTERS 


JSR a sreapeniew ;SEEK FOR 
10. ;CYLINDER 10. 




















MOV DHSEECOM,-(SP) ;GET READY TO MOVE COMMAND 
BIS sGO!Ie, (SP) :GET READY TO SET GO AND 
:ENABLE INTERRUPT 
MOV (SP)+, JRHCS! $60 WITH 
IN RHCS1 FOR SEEK 
itt INTERRUPT ENABLED 










WAT ;WAIT FOR ORY BIT TO SET 

RHDS1 :WAIT FOR eee RESISTE 

DRY WAIT FOR DRY BIT IN RHOS! REGISTER 
7000. SALLOW 70000 MICRO SECONDS 

3. :DRY MUST SET BET 








B N 
:69650 AND 70350 MICRO SECONDS 





IOIGICIUIGIGIOIOIGS 


GIGILIGIGIOIOIGIOIOIGIOIO IOS 
fe ee { 1 


aoc 
Jo--C .00E~ 


‘4 
Siri eke 
eC .000 SOU 4. ba 


roar 


' 


ICICI IC INLICIOA MIO IO9O IO 909 
oom 


IOI IGILICICICICICICIGIGIGCIGS 


Oar onan 
NOP OTE bt 


PURE IEDM AILIED 


frre tart 


OrRII 


Ommo9 
| ed died ie ee ti el 
CIGIGILIGIGS 
CSUCSUCOVESVES IOSD 
yf steht ak} 
4.1. -Comte 


13552 


C135 


013554 


3 sow 
ootu 


WIGIGIGS 
remarry 
Coto)" 

intromo 


Ooqow1 
Oooo 


q-8, /RFOM 5/6 FUNCT. 
SEARCH 2 SSigne” 


. MACY!1 27(655) 30-MAR-76 


* Ct. 


oo 


COMMAND 
ata vKS 0 


C-- 
Ue 


SIMMEDIAT 


a 2seen (SP) 
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GISTERS FOR READ HEADER AND DATA TO BE DONE AFTES 


-SET RI- PHCSL. ffs RHCS2 
:R3- -RHDS] RHER 

:GIVE Re-{) MINIT EEL IZE 
: SETUP UNtT NUMBER 


+ AL TQ RUN FOR DATA COMMAND 
ER O 


FFE® = PEINTO 
NOT INHISIT 
316 BITS PER | Horo FOR 
HIBIT'ECC CORRECTIO 
NOT INHISIT HE 
T READY TO 00 A 255 - 
RCH WITH 30 IN Bue; 


FC OF COMPARISON AFTER SEARCH 
AND CATA 


& REGISTERS 


‘Rae f IS THE FIRST REGISTER SAVED 
: STARTING AODRES OF WHERE 

HE REGISTERS ARE S SAVED 
NuMBER ¢ OF REGISTERS 


18. 


enaT a status arts 


gahO7 CONTINUE TESTING IF 
SEINTERRUPT VECTOR SET TO 


; SEARCH FOR 
s EYLINOER 0 
; SECTOR 

; TRACK . 
ff SHE CONTENTS a RHCS! 


NMED ISTELY AFTER 
ava yatEOYtTEtG9, a sEXPECTED errs IN RHCS} 


CTEO_SITS es! 
ELY "AFTER 5 


Get READY TO MOVE "gt ape 


OY TO SET GO A 


REA 
: ENABLE INTERRUPT 








8, RDY 0 ,DBR DRY AND y= 
































MNDEC=ii- SDIRII-8, /RFOW/S“® FUNCT, CONT. TST-PT 2 MACY1I 27(655) 30-NAR-76 18:59 PAGE 70 S£9 0119 
prarsa.Pil 13 cPankn COMMAND 
3081 013832 012877 168342 © MOV (SP)+,ORHCSL = ;60 WITH 
3553 . ‘WITH INTERRUPT ENABLED 
3083 013636 921100 CMP 3R1,RO :15 RHC - 809 
SCS4 213642 001413 BEQ 1 : BREN F 000 
358s 3i3e4s 011137 901126 MOV dR! 8880087 88 D Seth. FOR RHCS1 
3595 81364 O1003? 801124 MOV . RO, de3GD00T DAT 
3087 913852 910137 904500 MOV By SaeeonoR PRICING REGISTER BHCS! 
S559 ASESE 815997 860368 snooze MAY B340, QSTROPVEC+2°< TRAP PRIORITY 
308s S13664 104021 ERROR 21 s OURING SEAR COMMAND 
3030 : :CONTENTS OF RHCS: WAS 
305i :NOT AS Bape 
3532 013856 200414 3R 2$ if LAST ERROR 21 OCCURRED 
3233 THEN DO NOT CHECK RHDS] 
3234 :AS TOO MUCH TIME HAS 
3535 : PASSED 
303E 
3087 O13872 021305 18: CMP OR3, RS :IS aft G00 
3098 513673 551512 SEQ 2 :BRANCH IF GOOD 
35988 135679 811337 01126 MOV R32 28880087 : BAD Npara FOR RHDS! 
3109 913700 910537 01104 MOV BS, 28SG05 :600D DATA 
310: 612704 610337 994550 MOV R32" DaREGA af FAILING REGISTER RHDS! 
3102 O1371G Biers? 600340 oco0c3 MOV #340, JaTRAPVECe2' -TRAP PRIORITY 
3103 O137:8 168562 ERROR 63 : AURING SEnRCH COMMAND 
3305 : CONTENTS oF RHDS! WAS 
si35 IN CORRECT 
3157 912720 013737 02380 OCOWESD 2S: MOV 2aREFOR, a87HPO ;SAVE READ HEADER AND DAT: 
3158 613726 052727 809101 doo4650 BIS a rELSS, QsTMPO INCLUDE INTERRUPT ENAELE, 
$103 <1s734 Slevs? OCO0l1 do4656 Mov i, aathes SAVE TRACK O, SECTOR 1 
$13 s*#THIS IS ONLY A WAIT LOOP 
K Be F~ 
3113 o12742 104412 Wat -WATT.FOR RDY BIT TO 
| 3315 633744 O02283 RHOS1 SWALT FOR RHDS! REC is3Ee 
| 3315 Oi374e 80200 ROY WAIT FOR RDY art IN RHOS1 REGISTER 
| 3138 633758 915530 7000. : :BL CO 70008 MICRO 3EC ONDS 
| 3317 633752 0600543 35. ROY MUST SET BETWEE 
site :69650 AND 70350 ST Ro SECONDS 
] wee 
| 3120 013754 012737 900200 oO00%e 38: MOV 8200, 28TRAPVEC+2 ; TRAP PRIORITY = 4 
| 3128] O12762 918737 900000 177776 Moy #0, 5 SET PROSESSOR STATUS TO o 
| 3122 1577 513777 SOse5e e208 Moy SatMPS, ORHDST :SET DESIRED SECTOR’ TRACK 
222 : REGISTER TO SECTOR 1, TRACK 0 
ae 
 3TZS oO1g77& 013777 oOO4s0E 166182 MOV DARPYVES, DRPVEC ;SET RPOY yECTOR ADDRESS 
| 3136 : :70 'TIMEL’ IF P-CLOCK IS PRESENT 
| 31387 :OR TO ‘TIMES’ IF P-CLOCK IS NO? THERE 
«128 s* TIME’ WILL ONLY 
| 3125 -CURRENT CYLINDER 
| 3736 "AND LOOK AH 
| S333 14004 013711 OD4ESO MOV JaTMPO, aR: -FILL RHCSI ute Ene 
HE s TSE TH HER WIT 
$ige A 


a a ee ee ee ee 


MNOEC+I2-DIRII-“8, RFOS 
DZRITA.PL) ti3 
3135 
$i 
sis ; : 
3138. 018010 104412 
3133 9i40ie 002200 
146 014914 090800 
3141 914016 900225 
Sis2 814820 d00dd= 
3143 
3744 
3145 
S148 
314? 014022 904037 
3148 014026 092370 
3149 014038 900004 
3si8Q 014032 9130080 
3152 Q14034 (90900 
3i52 914936 6050¢ 
3153 624040 999000 
3155 
3i55 014942 004037 
3156 O1404s 9862480 
3157 O140s0 d0c004 
Sigs 914952 86050) 
3153 
31&0 
318i 
3162 
| 3163 914954 904037 
| 3164 §140960 892172 
| 3165 O14062 60000 
| 3166 
316? 
| IES o14064 904037 
| 3163 924070 02174 
| 3170 O14d72 00345" 
| 3175 
| 3173 o14s074 904037 
| 3174 Si4109 O02209 
| 3175 814152 564372 
| 3176 
| giz? 
| 3178 014104 0904037 
| 3178 Sisiio 602204 
| 3386 Elsii2 606602 
| gi8l 
| 3182 
| 3383 o14114 904027 
| 3164 Ot8130 G02234 
| 3365 Olsize 900080 
S186 
| 3199 
| Ste 


‘S 


& FUNCT. CONT 
SEARCH CONMAND 


032706 


03270& 


« TSI-PT @ 


s#TIME ALL 
;* INDICATE 
WAT 

RHCS1 

DY 


;#WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA 


JSR 
penn 
19000 
l 

a] 


= 


0 


RO, J#FLHEAD 


JSR. RO, 3aCLAREA 
HRFROM* 482) 


es 


;#CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR. «RO, JaF ILLRE 
RHWC 

0 

JSR. RO, Da ILLRE 


HEA 
FEINTO+<8. #2) 


JSR. «RO, J@F ILLRE 
RHCS1 
4272 
JSR -RO, DWF ILLRE 
RHOS 
JSR —-RO, DBF ILLRE 
BHCC 


;#COMPARE REGISTER SEFORE READ HEADER AND DATA 


MACYI1 27( 655) 


QWED HERE IS CRITICAL ANY TIME ERROR 
S WRONG SEARCH IN THE SEARCH COMMAND 


3O-NAR-76 18:59 PAGE 71 


;WAIT FOR ROY BIT TO SET 
SWAIT FOR RHCS1 REGISTER cha 
:WAIT FOR ROY BIT IN RHCS1 REGISTER 

490 MICRO SECONDS 







;SAVE HEADER DATA IN WRFROM 
;LOC RE SAVE 


;SECOND DATA WORD 
; THIRD DATA WORD 
:FOURTH DATA WORD 


-CLEAR 4 WORDS, FROM WRFROM+<442> 
sSTARTING FROM WREROM+<4#2> 


34 WORDS 
sFILL WITH 1 


3MOV_O INTO SAVED RHWC 
s paveD REGISTER TO CHANGE 


;MOV_REINTO+<8.%2> INTO SAVED RHBA 
TSAVED REGISTER TO CHANGE 


ED 


2 INTO SAVED RHCS! 
;SAVEO REGISTER TO CHANGE 


;MOV_2 INTO SAVED RHDST 
saaveD REGISTER TO CHANGE 
: DRT 


;MOV_O INTO SAVED RHC 
5 saveD REGISTER TO CHANGE 


= mm ee 





JILIGIGIGIGIGIGIGIGIGIGS 


OF ed ed ed eed ee ed ee ee ee ee 


J.003> ro 


£630 


SSR‘ JICICIOIC 


ULICILICIGCIGIGIGIGIGMaD JUICICIGIGIGIGS 
frerfrerforerforifrirarireninironcrironsroneor 
IPO Ge 09.000 IU Osu Oo. “I O"t 


RVIARIANIANIANI ANI AN) AT oes ced ced med ee ed ed ed ed ed Oe | 


O00 GIOIO 
fororornrny 
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MACY11 27(655) 


JJ-A B atety S$ B 44g fs wae 





© 
© 
£ 
at 


002 


090 
c 
Te 
Ort ~3 


004037 
70 


:*WITH REGISTERS AFTER COMMAND 


 OPEENT one REGISTERS WITH 
:G000 DATA SAVED IN ‘SAVERE’ 

; TEST DATA STARTING FROM ’RHIIC’ 
18, uae ae A COMPARED 


ON 
RETURN TO 58 ON NO FEn0R 


males) 
Or 


;READ HEADER AND ‘gi CAUSED 
; IMPROPER REGISTER CHANGE 
55008 i) Me GIVES WHAT SHOULD 


TREC TES GIVES WHAT WAS 
; THERE AFTER COMMAND 


:*NOW READ INTO BUFFER WILL BSE CHECKED TO SEE 
;*THE READ WAS GOOD 


sCOMPARE TWO SLOCKS OF MEMORY 
3 S200 DATA STARTS FROM WREROM 
DATA Hele a 


Ben TO S$ ONE 
“RETURN 70 7§ ON 


oO 
wo 


:READ HEADER AND DAT 
FER AS D 





NDECSIL-OZRII“A, RFO4/E 8 FUNCT. CONT. 


tia Py} 


GIG Mut 


“porun Ute 10 


CIGIGIGIGIGIGIGIGIGIGIGI 
POLITIC a a 
GIGIGIGIGIGIGS 


-Oww 


3e4 


2265 014204 


Cd ed Sed ed Sed ed ed 
eee EEE 
mu 
mw 
oOo 


tw 

LAT) 

> | 

ao 
OOooIooeI0Ho 


009094 
01e796 
Ole737 


004737 


004037 


905901 


SEARCH COMMAND 


001900 
003014 d04S04 
033004 


032630 
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© ONE i EC Oe Keio re # 


ne ee 2 


p SERRA AAA AA RA AKL LA LARA A LALA RL ELE LER RE LALA ER REFFSLTFLALEAFALFS 


THE NEXT TEST REMOVES SECTOR 1 ON CYLINDER 0 
T O THERE. 


THI ON ST WHEN SECTOR 
1 IS REPLACED. IF TESTING 1S STOPPED 


WITH 
+ ERROR IN THE SECTION OF THE PROGRAM BETWEEN 
‘THIS AND WHEN SECTOR 1 IS REPLACED THEN THE 
DISK BEING USED MAY HAVE BEEN UNF ORMAT TED 


etrititretirriirerrterrrtitiretttrttetttttrertititttertttrrrr ss 


5 PERERA RRERRER LEA EA AAEE AERA RE EAE ERAS REESE AER EAE AEE REEL RA EEE EELS 
;#TEST 14 HEADER COMPARE ERROR - RHER! BIT #7 (HCE) 


eo ee et ee ae aes 


ME AO OE ie oe 


WRITE HEADER AND DATA IS USED TO a SECTOR 1 


ANY DATA READ IS CHECKED 


Hh lelealatal---1-b-Lalalahalaladalatalalaalalalalaialalalalalalalahalahaleisiainlslnicleleiabalaiainisicisichaisieiaiaiel 


$8515; 


COPE 
ty aSTACK, SP sRESET STACK 
MOV #14, a8TSTNM :SAVE TEST NUMBER 
JSR PC,SaCLOISK —--;SET_RI-RHCS1, Re- RHCS2 
‘ :R3-RHDS! 


3 SETUP UNIT NUMBER 
:#FTLL WRITE FROM SUFFER WITH HEADER 
RO,2aFLHEAD SAVE HEADER DATA. IN WRFRON 


JSR 
WRF ROM ;LOCATION WHERE SAY 
5 ; NUMBER OF WORDS SAVED 


‘FIFTH DATA WORD 
;#FILL READ INTO BUFFER WITH ALL ONES 


SES Cle2l 














































MNDES=12-DZRII“A, RFOWS/S FUNCT. CONT. TST-PT 2 MACYI1 271655) 30-MAR-75 18:59 PAGE 74 SEG C122 
DrRIIA.PL 14 HEADER COMPARE ERROR - RHER] BIT 87 (HCE) 


3284 014232 094037 032654 JSR, RO,DHCLARER —;CLEBR 256. WORDS, FROM REINT 
3285 014236 002434 REINTO ;STARTING FROM REINTO 
3285 914240 900400 256. ;256. WORDS 

287 Ol4s4e 1? 777: =i sFILL WITH -1 


$230 ;*WRITE HEADER AND DATA IS LOADED 


3231 
3292 014244 004037 O247E5 JSR RO, J8RUN :SETUP TO RUN FOR DATA COMMAND 
2293 014350 200900 0. :CYLINDER O. 
3294 01425 O01 -BYTE 1. ;SECTOR 1. 
3295 014253 000 .BYTE 0. TRACK 0. 
3296 014254 177773 -[-4 : WORD COUNT. coaTA) =l+¢ 
3297 :4 HEADER 
3298 01425 002370 | WRFROM BY US ADDR ces 
3238 ; STARTING ADDRESS OF DATA 
3300 : BUFFER FROM 
3301 914250 999000 0 00 NOT inter BUS RODRESS INCREMENT 
3302 O14262 910000 FMT22 . & BITS PER WORD FORMA 
3303 . ‘48 NOT INHIBIT ECC RORRECTION 
3304 :00 NOT INHIBIT HEADER COMPARE 
3205 O14264 002344 WRIFOR . -GET READY TO DO 4 6 
3208 :WRITE HEADER AND CATA WITH 3 IN RHCS1 
33 


3363 : ;*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 


3310 

3311 O14266 004037 032152 ISR RO, JBSAVER :SAVE REGISTERS 

3212 O14272 50217 RHWC *RHWC IS THE FIRST REGISTER SAVED 
3313 914274 8045) SAVERE : STBRTING ADDRES OF WHERE : 
3314 . THE REGISTERS ARE SAVED . 
3315 o14276 900021 17. NUMBER oF REGISTERS 

3:6 :SAVED = 

wel 

3318 014200 004737 oO32064 JSR PC, OaCHECKT “CHECKS DVA ROY, MOL,DPR,DRY AND VV = 1 
33:9 AN THAT ACL Status BITS ARE = 0 

3320 O14304 104400. osee62 TYPE _,CPHALT CANNOT LONTINE Teer ENG IF NOT 

#61 9143i0 OO0c00 HALT ETOP TEST 

SJce 

3323 O14212 013777 OOYSOE 1E5646 MOV DARPYVEC,IRPVEC ; $67, RPOY yECTOR ADDRESS 

3324 at MeL PocLock IS PRESENT 

g2e5 30 INES" 1 Bo eee Is NOT THER 
3326 98 Rms We ONLY SAVE 

3327 CURRENT CYLINDER ADDRESS 

3228 SAND LOOK AHEAD REGISTERS 

=357 

3321 014320 013746 o02344 MOV DRWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 

3332 014324 062716 O00101 BIS #GONTE, (SP) -GET READY TO SET GO AND 

3233 sENABLE INTERRUPT 

2334 014330 012677 1&Se44 MOV (SP)+,ORHCS1  :GO WITH 

3235 262 IN RHCS! FOR WRITE HEADER AND DATA 





MNDEC=123-D2RJJ 


DZRIJA. 


Pil 


014234 


14344 


C14346 
0143Se2 
014354 


014356 
014362 
014364 


214386 





14 


1044} e 


pogco6 


004037 
021? 


ode402 


004937 
BONDE 
0 


514420 
104027 


000207 


“A, RFOWS/6 FUNCT. 


CONT. TST- 


a 


PT 


H10 
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2 
HEADER COMPARE ERROR - RHER] BIT #7 (HCE) 


03270 


032705 


034002 


;WITH INTERRUPT ENABLED 
;*TIME IS NOT CRITICAL 


WAT ;WAIT FOR ROY BIT TO SET 

RHCS1 WAIT FOR RHC TER « 
;WAIT FOR ROY BIT IN RHCS1 REGISTER 

2500 i ALLOW 25000 MIC _— 

e500 ;RDY MUST S 


ET BETW 
00 AND SOOG0 MICRO SECONDS 
;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J8F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC save REGISTER TO CHANGE 


JSR RO, d#F ILLRE ;MOV_WRFROM+<S#2> 7 SAVED RHEA 
;SAVED REG! aren TO CHANGE 
WRF ROM+<S¥2> ; DAT 


JSR RO, d#FILLRE ;MOV_2 INTO SAVED RHDST 
RHOST 3 payed REGISTER TO CHANGE 
c : ‘ 


;#COMPARE ALL REGISTERS 


JSR RO, J8COMREG OO eent af REGISTERS WITH 


: PRESENT 
SAVERE :300D DATA SAVED IN ’SAVERE’ 

TEST DATA STARTING FROM "RHWC’ 
nS. 17. REGISTERS TO BE COMPARED 
1$ ‘RETURN TO 1$ ON ERROR 
re} RETURN TO 2$ ON NO ERROR 
ERROR z7 WRITING HEADER AND DATA CAUSED 

. ; IMPROPER PEGISTER CHANGE 
D DATA ol¥ ES 


SHOULD BE THERE 
RECEIVED DATA GIVES WHAT 
SHAS THERE AFTER WRITE 












3388 914420 
3399 014420 


335 014424 


3388 014434 
Qe 
3403 014436 


3408 C144S0 


S411 014452 
s4ie O144S4 


S415 O14456 
3420 14460 
3421 OI44e4 
3424 14470 
3427 014472 


4239 014476 
3439 014502 


3432 014504 


004737 


004037 
0 


004037 
000099 
201 
000 
177777 
003434 


000900 
010000 


002346 


004037 
002172 
004512 


000022 


004737 


104400 
000000 


013777 


033004 


032654 


034766 


033152 


033064 
OSébE2 


004506 
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3 NOW A _READ DATA WILL BE DONE ON CYLINDER=0, SECTOR=1, 
FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR PC, J#CLDISK ;SET RI-RHCS1, R2-RHCS2 
:R3-RHDS1, R4-RHE 
;GIVE RH-!1 INITIALIZE 
:SETUP UNIT NUMBER 
JSR RO, J¥CLAREA :CLEAR 256. WORDS, FROM WRFROM 
WRFROM :STARTING FROM WREROM 
256. 256. WORDS 
=| ‘FILL WITH -1 


;*READ COMMAND IS LOADED 


JSR RO, J#RUN ;SETUP_TO RUN FOR DATA COMMAND 
0 ;CYLINDER 0 

eYIE ; OR 

BYTE 6 ; TRACK O 


=! ;WORD COUNT = 
BUS ADDRESS 
STARTING ADDRESS OF DATA 
:BUFFER = REINTO 
0 300 NOT INHIBIT BUS ta INCREMENT 
PMTé2 . 316 BITS PER WORD FORMA 
:00 NOT INHIBIT ECC CORRECTION 
-}D0_NOT INHIBIT + he ie 


READAT GET READY TO DO A 
sf sREAD DATA WITH 70 IN RHCS1 


» SAVE REGISTERS FOR COMPARISON AFTER READ DATA 
isk RO, J#SAVER ; SAVE REGIST ER 
RHW Nts IS THE FIRST REGISTER SAVED 
SAVERE ‘STARTING ADORES OF WHERE 
‘THE REGISTERS ARE SAVED 
18. ;NUMGER OF REGISTERS 
:SAVED = 18. 
ISR PC, 8CHECKT s CHECKS bv, ROY MOL,DPR,DRY AND yV = 
:QND THA StaTus SitS ARE = 
TyPE , CPHALT s CANNOT CONT ENGE TESTING IF NOT 
HAL T :STOP TEST 


MOV DBRPYVEC , IRPVEC sSET RPOY Yue ADDRESS 

310 *TIMEL’ IF P-CLOCK IS PRESENT 

:0R TO Tme3: IF P-cLock IS NOT THERE 
;*TIME’ WILL ONLY SAVE 














rDec 1p -D2RIJ-8 REO4/S/6 FUNCT. CONT. 


3458 014540 
3453014544 


S61 O14SY6 


3465 O1455e 


3467 014560 
3468 14564 


3470 O14SEE 


3474 014576 


75 
3476 914600 
3477 O14604 


3473 O14606 
480 914610 
3481 O146le 


2483 tha 


t14 


013746 
052716 


012677 


104412 


010110 
00150a 


004037 
OCe222 


000902 


04CO00 


004037 
002299 


000002 


040000 


004037 
002202 


000001 
000001 
000200 


004037 


O02204- 


o0000e 


053737 


HEADER COMPARE ERROR - RHERi BIT &7 (HCE) 


033674 


033674 


033674 


032706 


OO4E44 004536 
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MOV 
Bis 


MOV 


;*TIME IS NOT CRITICAL 


;*#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR 
$1 








J10 
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SES 0125 


;CURRENT CYLINDER ADDRESS 
: AND LOOK AHEAD REGISTERS 


DBREADAT,-(SP) ;GET READY TO MOVE COMMAND 
aGOlIE, (SP) :GET READY TO SET GO AND 
sENABLE, INTERRUPT 


;70 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENFSLED 


(SP)+, JRHCS1 


;WAIT FOR ROY BIT TO SET 

:WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 41680 ee SECONDS 

;RDY MUST SET BETWE 

;33340 AND 50020 MICRO SECONDS 


RO, d#CHREG ;CHANGE SITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 


32 BIT/BITS fo. yaa 
NEW VALUE OF ATA IS 1 
:CHANGE ATA BIT 

NEW VALUE OF ie Is 1 
CHANGE ERR BIT 


RO, d#CHREG ;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


;@ BIT/BITS TO BE _ 


t CHANGE 
;NEW VALUE OF TRE IS 1 
CHANGE TRE BIT 


RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
:CHANGE RHER1 REGISTER 


1 BIT/BITS TO BE CHANGED 
ENEW VALUE OF HCE IS 1 
}CHANGE HCE 817 


RO, d#F ILLRE ;MOV_2 INTO SAVED RHDST 
s SAVED REGISTER TO CHANGE 


QBATTENT aSSAVERE+24 ;SET APPROPIATE ‘ATA* BITS 
;FOR WORKING DRIVE IN 






























































core 


014704 
014712 


014716 


014740 
014742 
014752 
014754 


014764 
Ci47E6 


t15 


90900% 


004737 


004037 


000001 


004037 


177772 
002370 


001008 


000015 
033004 


032630 


032654 


034766 


004504 


MNDEC=1i-DZRJJ-A, RPOWS/& FUNCT. CONT. TST-PT 
DZRIJA.PL1 


ME OK HK OK IK eK oe ie 


Seer wee wn et ee ae ae ee 


Oy nag o> genera sens i pcereaetceen se men sabsmreag ripe oie 


tet 15: 





T 15 


Me 


IS GIV 


e MACY11 27(655) 
HEADER COMPARE ERROR - RHERI BIT #7 (HCE) 


: Oe pag 8 rk ee gS be gh cans 
HEADER COMPARE ERROR - RHERI BIT #7 HCE) 

FEO E OR DATA a NSeR ie TO REMOVE SECTOR 1 

a ane IS CHEN: FoR SECTOR 1, TRACK O, wie aamne 0° 


Part 7_IN RHERI SHOULD SET 


E 
ene ~ DATA SECTOR 1, MS veers O, CYLINDER G 
7 SHOULD SET AND'A 


ON CYLIN 


BIT 


HEADER emt” Sera SHOULD BE READ 


MOV 
MOV 


JSR 


WRF 
10000 
0 


JSR 
ROM 


#STACK, SP 


#15, aaTSTNM 
PC, ad8CLD 


ISK 


RO, d#FLHEAD 


;#FILL READ INTO BUFFER 
RO, J#CLAREA 


JSR 
REINTO 
e- 


;#WRITE HEADER AND DATA 


JSR 


0 
“BYTE 
-2-4 


WRF ROM 


RO, J#RUN 


1 
0 


; 


30-NAR-76 18:59 PAGE 79 


;RESET_ STACK 


:SAVE TEST NUMBER 
SET RI-RHCSI., R2-RHCS2 
:R3-RHDS 1 HER] 
:GIVE RH-11 INTTIBLIZE 
:SETUP UNIT NUMBER 
:#FILL WRITE FROM BUFFER WITH HEADER AND DATA 


3 SAVE HEADER DATA BD ein 


;LOCQTION WHERE S 


3NU MBER _OF we SERVED 
DATA WORD 


A WOR 
SIXTH DATA WORD 
WITH ALL ONES 


:CLEAR 256. WORDS FRON REINTO 
: STARTING FROM RENT 
256. WORDS 


:FILL rte =| 


TS LOADED 


;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 


Rl 


0 
:WORD COUNT (DATA) 


:4 HEACER WORDS 


BUS ADDRESS 
:STARTING ADDRESS OF CATA 


:BUFFER = 





WRFROM 
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DZRIJA.PLI tis ubanes COMPARE ERROR - RHERI BIT #7 (HCE) 

3579 014770 oD0000 9 300 NOT INHISIT BUS ADDRESS INCRENENT 

S2o3 russe Bi nooD FMT22 '16 BITS PER WORD FORMAT 

3531 D0 NOT INHIBIT ECC CORRECTION 

2 100 NOT INHIBIT HEADER COMPARE 
3583 014774 902344 WRIFOR “GET READY TO DO A WRIFOR 
3595 GHRITE HEADER AND DATA WITH G2 IN RHCS1 






3587 | ;*NOW SAVE REGISTERS ay COMPARISON AFTER 
3588 WRITE HEADER AND DAT 








2330 O14776 304037 033152 JSR RO, J#&SAVER ; SAVE ee 

3531 015092 002172 RHWC RHWC_IS THE FIRST wolae SAVED 
3532 015004 O04Sle SAVERE ;STARTING ADDRES OF WHERE 

35933 iT E REGISTERS ARE SAV 






H G S 
3$34 018006 900021 17. ;NUMBER OF REGISTERS 
rs) ;SAVED = 17. 







sean 015019 004737 033064 JSR PC, J#CHECKT ater dg Oe Ae be 
3598 015014 104400 o56662 TYPE , CPHALT CANNOT CONTINUE TESTING IF NOT 
soto 0150eG 900000 HALT i STOP TEST 









3602 015022 013777 OO4SO& 165136 MOV DBRPYVEC ARPVEC ;SET RPOY VECTOR ADDRESS 

3693 310 onli IF P-CLOCK IS PRESENT 

3604 ;0R TO *TIME2’ IF P-CLOCK IS NOT THERE 
3695 ? L_ONLY SAVE 


E 
3607 . ¢AND LOOK AHEAD REGISTERS 








3610 015030 013746 d02344 MOV Q@#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 

3611 OiS034 052716 000101 BIS #GO!NTE, (SP) :GET READY TO SET GO AND 

sble ; ENABLE INTERRUPT 

3613 015040 Cl2e677 165134 MOV (SP)+, JRHCS1 360 W ITH 

3614 ;62 IN RHCS1 FOR WRITE HEADER AND DATA 






3615 WITH INTERRUPT ENAGLED 
3617 ;*TIME IS NOT CRITICAL 













3619 015044 104412 WAT ;WAIT FOR ROY BIT TO SET 

3620 O1S04%6 002200 RHCS1 :WAIT FOR RHCS1 REGISTER 

3$e1 015050 900200 ROY :WAIT FOR ROY SIT IN RHCS1 REGISTER 
s62e O0i505e 004704 e500. ae 25000 MICRO sare OS 

3623 015054 004704 2500. ;RDY MUST SET BETH 

Ca 00 AND 50000 MICRO SECONDS 

se ;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

3628 015058 004037 Cz2706 JSR RO, J#FILLRE ;MOV_O INTO SAVED RHWC 

36239 O01506e O002i7e RHWC s SAVED REGISTER TO CHANGE 

3630 015064 000000 0 ; :DATA 





ee -_~ en . = 


Ee 


EE 
| N10 





MNDEC=11-DZRJJ-A, RPOW/S/G FUNCT. CONT. TST-PT 2 MACY11 27(655) 30-NAR-76 18:59 PAGE a} SEO 0129 
DZRIIA.P11 1s HEADER COMPARE ERROR - RHERI BIT #7 (HCE) eas, 
3633 015066 004037 9032706 ISR RO, IHF ILLRE :MOV WRFROM+<6%2> INTO SAVED RHEA - 
3634 016072 002174 RHBA :SAVED REGISTER TO CHANGE 
3635 015074 oo2404 : WREROM+<&%2> :DATA 
= 
¢ 
638 015076 oo4O037 932706 ISR RO, J#F ILLRE :MOV 2 INTO SAVED RHDST 
3639 O15i02 002204 RHDST s SAVED REGISTER TO CHANGE 
3640 915104 ood002 2 : DAT 
3641] 
3642 
3543 ; COMPARE ALL REGISTERS 
3645 015108 004037 o34002 ISR RO, J#COMREG : COMPARE SAVED REGISTERS WITH 
3646 sFRESENT ALUE 
3647 015112 oo4s12 SAVERE ;GO0D DATA SAVED IN ‘SAVERE’ 
36428 0151149 992264 Wc :TEST DATA STARTING FROM ’RHWC’ 
3649 O1Si1s o00021 17. 317, REGISTERS TO BE COMPARED 
3650 915120 015124 1$ “RETURN TO 1$ ON 
#651 Oi5i22 015130 2 RETURN TO 33 ON NO ERROR 
3653 015124 104027 1$: ERROR 27 ;WRITING HEADER AND DATA CAUSED 
3654 O15ie6 oo0207 RTS PC : IMPROPER REGISTER CHANGE 
3655 :GOOD DATA GIVES WHAT 
3655 ‘SHOULD BE THERE 
3657 ‘RECEIVED DATA GIVES WHAT 
3658 :WAS THERE AFTER WRITE 
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ee A. A WRITE DATA LILLE BE DONE ON SAME CYLINDER, SECTOR 


.? 


:aFILL WRITE FROM BUFFER WITH DATA 


ISR RO, JeCLAREA ;CLEAR 70. WORDS, FROM WRFROM 
WRF ROM :STA ARTING. FROM TREROM 

70. °70. WO DS 

177800 eFILL WITH 177400 


s*#WRITE DATS COMMAND Is LOADED 


ysr RO, S8RUN sSETUP TO RUN FOR DATA COMMAND 
Be CYLINDER 0 
Ag) Sa sSECTOR | 
BYTE Q ; TRACK O 
-TO. *WORD COUNT = 70 
WREROM ;8US ADDRESS 
:STARTING ADDRESS OF DATA 
-BUFFER = WREROM ? 
Q 2 DO NOT I! nal BUS | ta 9ESS INCREMENT 
FMT22 :16 BITS PER 
300 NOT IN NEIBI? RBS ORERECTIO 
:D0_NOT INHISIT HEADER SBHPARE 
WRIDAT »GET RERDY TO DO A WRIDAT 
:WRITE DATA WITH 60 IN RHCS 


is VE REGISTERS FOR CO watt a AFTER WRITE DATA 


RO, JBSAVER AVE REGIST ERS 
HC aa We 1S THE FIRST REGISTER SAVED 
SAVERE STARTING ADORES OF WHERE 
THE REGISTERS Bae SAVED 
18. NUMBER OF REGISTERS 
: SA\ VED = 18. 
ISR PC, JeCHECKT s CHECKS VA,ROY MOL DPR, DRY AND VV = 1 
*AND THAT ALL status SIts ARE =O 
TYPE  ,CPHALT N01 CONTINUE TESTING IF NOT 


i CAN T 
HALT STOP TEST 
MOV DORPYVEC IRPVEC ; ore RPOY VECTOR ADDRESS 


35 

570 “TIMEL’ IF P-CLOCK IS PRESENT 

308 TO *TIME2’ IF P-CLOCK IS NOT THERE 
:¢ LIN 
7A 


R 
REGISTERS 


DBURIDAT -(SP) 


T READY TO MOVE COMMAND 
aco! I , (SP) 


T READY TO SET GO AND 


fi 


tw 
ine 
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DIRITA.Pi2 #15 HEADER COMPARE ERROR - RHERL BIT #7 (HCE) 
314 NAGLE INTERRUPT 


st 
O1S226 Olebe? 164746 MOV (SP)+,JRHCS1 ;G0_WITH 


3715 

3718 :60 IN RHCS1 FOR WRITE DATA 
st sWITH INTERRUPT ENABLED 

3015 ;#TIME 15 NOT CRITICA 

S721 015232 104412 WAT. ;WAIT FOR ROY BIT TO SET 

sre2 915234 QveebU RHCS1 ;WAIT FOR RHCSI REGISTER os 
S723 31523¢ 900200 DY WAIT FOR RDY SIT IN RHCS1 REGISTE 
3735) 515350 GOr514 308 TALLOW 3080 MICRO SECONDS 
s7zs (015242 301502 834 sROY MUST SET BETWEEN 

s726 :740 AND 17420 MICRO SECONDS 
3728 j#Y0U CHANGE SEGISTERS TO EXPECTED VALUE 

res 015244 08737 oO04E40 tST Ss BRH7O NNING ON RH7O 7 

sist SISESC OO14El 89S SSP NOT: SCIP NEXT RH7O CODE 
3732 

3733 O15252 004037 032706 ISR. RO, QSFILLRE =; MOV_-62. INTO SAVED RHKIC 
Sras C1525 502172 RAWC : SRVED REGISTER TO CHANGE 
ras O15260 IF77OE -52. ;DATA 

37¢ 

3738 DISZE2 004037 O32708 JSR. - RO, SWF ILLRE ;MOV_WREROM+<8.#2> INTO SAVED RHBA 
3733 S152EE 30217: Rusa | SAVED REGISTER TO CHANGE 
$755 015272 O02410 WRFROMS <8. #2) ;DATA 

374) 

3743 18272 004037 033674 JSR «RO, aeCHREG «=; CHANGE QITS_IN SAVED REGISTER 
3745 S1EE7E 5d217 RHCSe ;CHANGE RHCS2 REGISTER 

S746 915300 opo09e 2 ;2 BIT/BITS TO SE CHANGED 

3747 615302 900001 I NEM VALUE OF OR IS 

3748 515204 305250 oR : CHANG IT 

3743 815306 900000 a NEL vaLUE OF IR IS 0 

3756 915319 90910¢ ik cE 

375] O15312 SOCsIE ep 108 ‘SKIP NEXT Ball co 

3752 

3753 (015214 $$: 

3755 

3755 O15314 204037 03279 JSR RO, QSFILLRE =; MOV_-4._INTO SAVED RHWC 

3756 915329 502172 RHC SSAVED REGISTER TO CHANGE 

3757 Si5322 177774 -4, :DATA 

3758 

3755 

S7E5 O15224 o04027 O22706 JSR. -RO.GNFILLAE MOV MREROM4<8. 42) INTO_SAVED HBR 
3761 915330 002174 FHg9 :SAVED REGISTER TO CHANGE 

37e2 515332 50257: WRFROM*< 66. #2> ;DATA 

3753 ise 

3765 

3765 015224 OO4037 033674 JSR. RO, QSCHREG CHANGE BITS IN SAVED REGISTER 
see SISO Stel? — RACS2 ;CHANGE RHCS2 REGISTER 
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T2 rpRGY EL 27CS88) 30-MAR-75 18:59 PAGE 24 
UEADER cameaee EREOR ~ ANERL BIT ee CHCE) 


l 1 SIT/BITS TO ge CHANGED 
l ‘Ned VALUE OF OR IS 1 

OR CHANGE OR BIT 

JSR RO, J8CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 ;CHANGE RHCS1 REGISTER 

e 32 BIT/BITS 0. ge CHANGED 
i po VALUE OF SC IS 1 

sc ANGE SC 

l at VALUE OF TRE IS 1 
TRE CHANGE TRE SIT 

JSR RO, daF ILLRE ;MOV_ 2 INTO SAVED RHDST 
RHOST s SRVED REGISTER TO CHANGE 
E : 


BIS nae ee jae! APPROPIATE ‘ATA’ BITS 


RKING DRIVE IN 
te SvED OBNAS LOCATION 

Ik RO, DaCHREG sCHANGE BITS IN SAVED REGISTE 
RHER] “CHANGE RHERL REGISTER 
1 1 BIT/BITS TO BE CHANGED 
} ‘hen VALLE OF HCE IS i 
HCE s;CHANGE HCE BIT 
JSR RO, DaCHRES ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ;CHANGE REDS! REGISTER 
2 iE BIT/BITS TO ee CHANGED 
st s;NEW VALUE OF ATA I 
ATA :CesNGE ATR BIT 
1 EW VALUE OF ERR IS 1 
ERR ;CHANGE ERR BIT 
;*COMPRRE ALL REGISTERS 
JSR RO, daCOMREG een oaven REGISTERS WITH 
SAVERE :G000 DATA SAVED IN *SAVERE” 
we {TEST DATS STARTING FROM *RHWC* 
18. :18. REGIS ns. iy ee COMPARED 
33 : RETURN TQ 3$ ON ERR oR 
33 : RETURN TO 4$ ON NO ERROR 
ERROR Se sWRITE DATA ON NON EXISTANT oT 

RTS PC : CAUSED IMPROPER REGISTER CHAN 

sRTTEMPTED WRITE WAS ON 
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ify LINGER 0 AZ TOR 1, TRACK O 

06 VES nHAt S SHOULD BE THERE 
"RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


;#READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER O 
r4WILL BE ATTEMPTED 


JSR PC, d@cLDISKk ae! RI-RHCS1, Re-RHCS2 


;R3- eg RY- 
: SETUP UNIT NUMBER 


;#FILL WRITE FROM BUFFER WITH EXPECTED DATA 


sR RO, J8FLHEAD ;SAVE HEADER DATA IN WRFROM 
WRFROM ;LOCATZON WHERE SAVED 
= "NUMBER OF WORDS SAVED 
10000 RET DATA WORD 
0 -SECOND DATA WORD 
6 : THIRD DATA 
9 “FOURTH DATA WORD 
] -FIFTH DATA WORD 
! :SIXTH DATA WORD 
ISR RO, DaCLAREA :CLEAR 198. WORDS, FROM WRFROM+:S42) 
WREROM+< #2) -STARTING FROM WREROM+<Gs2> 
198, 2198. WORDS 
0 iPFeL WITH O 
CLAREA : CLEAR 50. WORDS, FROM WREROM+: 204. #2 
paFRoMe S04.42 be aa TARTING FROM WREROM+< 204. #2) 
WOR 
-} SPILL mg -) 


;#FILL READ INTO BUFFER WITH ALL CNES 


JSR RO, J8CLARER :CLEAR 258. WORDS FROM REINTO 

REINTO :STARTING FROM REINT 

256. 256. WORDS 

-j FILL WITH -1 

s#FILL REGISTERS WITH READ HEADER AND DATA COMMAND 

JSR RO, J8RUN ;SETUP TO RUN FOR DATA COMMAND 
: CYLINDER 6 

-BYTE 1 SECTOR 1 

"BYTE 6 TRACK O 

-200. <4 =WORD COUNT (DATA) = 200. + 


14 HEADER WORDS 
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HS 
003434 


000900 
014090 


002350 


094037 
90217 
j045 12 


c000z22 


104400 
000500 


013777 


913746 
55271 


Oie677 


104412 
002200 
0002 at 


001614 
001597 


7 


200 
000 
one 
Or-o 
OND 
orn 


033064 
oStébe 


CO4SCE 


002359 
CO00i01 


184326 


032706 
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CONT. 
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REINTO RESS 
TESTING QD ne OF DATA 
0 :D0 NOT INET BUS ADDRESS INCREMENT 
ECISFMT2e ;16 BITS PER es FORMAT 
sINHIBIT'ECC CORRECTION 
:00_NOT INFIBIT WeneSe piers: 
REFOR GET READY TO DO A REF 


;READ HEADER AND DATA TH 72 IN RHCS1 


:¥SAVE REGISTERS FOR COMPARISON AFTER READ 
-*HEADER AND DATA 
ISR RO, J#SAVER :SAVE REGISTERS 


RHW :RHWC_IS THE FIRST REGISTER SAVED 
SAVERE ;STARTING ADDRES OF WHERE 

;THE REGISTERS ARE SAVED 
te sNUMGER og eeeTERS 


JSR > -PC,aBCHECKT CHECKS OVA ROY MOL ,DER,DRY BND 

AND THAT ALL StaTUS BITS ARE = 
TYPE =, CPHALT SCANNOT CONTINUE Hering IF Not 
HALT :STOP TEST 


MOV OSRPYVEC, IRPVEC ; 













TQ *TIME1’ 
:0R TQ ’TIM | 
TIME’ WILL 0 y ee 
CURRENT eVCINDER ADDRES 
;AND LOOK AHEAD REGISTERS 







faa] 
> 
— 
<n 
hess 
pr aA es 
[- 
G& 
i) 
wm XW 














MOV QsREFOR,-(SP) — ;GET READY TO MOVE COMMAND 

srs sGOrre, {SP) :GET READY TO SET GO AND 
sENAGLE INTERRUPT 

MOV (SP}+, JRHCS] AITH 


IN RHCS! FOR READ DATA 
“ize INTERRCET ENABLED 


;*TIME IS NOT CRITICAL . 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS! ;HAIT FOR RHCS! REGISTER 
ROY ;WAIT FOR ROY BIT IN RHCS! REGISTER 
908. TALLOW 9080 aia! SECONDS 


839. ROY MUST SET BETNEE 
3690 AND 17470 MICRO SECONDS 


;#CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J#F ILLRE ;MOV_O INTO S SAVED RHWC 
RHWC ue REGISTER TO CHANGE 








AND Eos ii * aie 
cRIJA.P11 


Ooo O0000 O00 OOH OHM 
eg ee re ed ee ee ee ee Or ee ee ee 


wi) uu 


ee et ee et 
. 
ee A | 


oO Ooo oo 


o-* 


tis 


004037 
002202 
900991 
~J0901 
doc200 


004037 
O0eee2e 


000002 


o40000 
004937 
002204 
po0a0e 


004037 
002200 
009001 
000001 
140000 
053737 


094927 


004512 


516004 


104031 
000207 






RPO4/S/6 FUNCT. CONT. 


Te 18:59 PAGE 87 
HEADER COMPARE ERROR - RHER] BIT #7 (HCE) 


MACYL1 27(655) 


EINTO+<204 
“ ene Bf TEER t 
REINTO+< 204. #2> 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHER1 REGISTER 
# BIT/BITS TO BE CHANGED 
ALUE OF HCE iS 1 
CHANGE HCE BIT 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHDS1 REGISTER 


ie BIT/BITS oF ats BE wees 
& ATA BIT 

NEW VALUE OF ERR IS 1 

; CHANGE ERR BIT 


;MOV_2 INTO SAVED RHDST 
3 BavED REGISTER TO CHANGE 


CHANGE BITS IN SAVED REGISTER 
t CHANGE RHCS1 REGISTER 


;1 BIT/BITS TO BE CHANGED 
NEW VALUE OF SCITRE IS | 
: CHANGE SC! TRE SIT 
JSATTENT, 1 ONSEN be ; SET Tine BRIVe IN *ATA’ BITS 
SAVED ORAS LOCATION 


i NITH aE oe BEFORE READ HEADER AND DATA 


PRESENT SaveR REGISTERS WITH 

3 G00 DATA SAVED a "SAVERE’ 

Hae RTING FRO! 

RS on een SOHPAREL 
RO 

RETURN TO &$ ON NO ERROR 


;READ_ HEADER AND DATA WITH 
sORCED eter COMPARE ERROR 








ey ia “seed ™ FS doa S/’6 FUNCT. 


CI GCIGICIGIGIGIGIGIGIGS 

OOOO M0000 De 
O00 00.00.0000 
IMU £ Gatue- (1.000 


Od ON0000 


F F 
MQOOooonomouc = ie) 
0 8 
NM ULE Gute 


4 


H1l 


TST-PT 2 Magy 14 27 (655) 
HEADER | COMPARE "ERROR - RHERI BIT 


a? (HCE) 


;*NOW COMPARE READ DATA 
;#THE COMMAND READ ONLY 


;#AND 200 DATA WORDS 


$$: 
SR RO, S8COMPAR 
WREROM 
REINTO 
ess. 
7$ 
es 
7$ ERROR 34 
TS C 
8s: 


ee 





30-NAR-76 18:59 PAGE 88 
Be THERE GIVES WHAT SHOULD 
RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER READ 


204 WORDS, 4 HEADER WORDS 
; COMPARE He BLOCKS a Oe 


RETURN TO 8$ ON NO ERROR 


;DATA READ FROM A FORCED 
‘comet ERROR IS 


| 7G000 DATA GIVES W 


;THE READ HEADER NG "bata 
;SHOULD HAVE READ 


580 DETR GIVES Hor 


WAS IN BUFFER AFTER 
READ COMMAND 











MNDEC*1i-D2RJJ 


ZRIJA.PL1 


4039 O1&046 


wO41 Q1e0S2 
¥O48 OISSe 


4044 016060 


4052 O1B086 
4053 016072 


4055 O1g076 


~ 


mar 


RF 
715 


004737 


004737 


104400 
002990 


0i37?77 


013746 
052716 


012737 


004737 


001900 
000016 


033004 


033064 
OS&662 


CO4SC 


002326 
009191 


184076 


033004 


04/5/S FUNCT. CONT. 
HEADER COMPARE ERROR - RHERI BIT #7 (HCE) 


004504 


134100 


TST-PT 2 MACYL1 e7(655) SO-MAR-76 18:59 PAGE 29 





28 eae he gh tn gh ee ge te ge” peatemnine eet 
T 16 HEADER COMPARE ERROR - RHERI HCE 

cam THE HEADS mt Me as QO A SEARCH COMMAND IS GIVEN 
FOR CYLINDER 0 T SECTOR 1, Oh THRUGH THE HEADER 


FOR THIS SECTOR fe “CHANCED TO TOR O HCE-B8IT #7 
IN RHER] SHOU 


COPE 
MOV #STACK, SP :RESET STACK 
MOV #16, a8TSTNM :SAVE TEST NUMBER 


JSR PC, aeCLOISK sSET Ri-RHCS1, Re-RHCS2 


‘GIy 
SETUP UNIT NUMBER 
:#GET HEADS TO EXE OER 0 


$sR PC, J8CHECK : CHECKS ova, ROY MOL,DPR,DRY AND VV = 1 
AND T Status BITS ARE =0 
TYPE § ,CPHALT :C ARNOT CONT INGE Teer tne IF NOT 
AL T :STOP TEST 
MOY DRRPYVEC , IRPVEC sSET, RPOY VECTOR ADDRESS 
:TO *TIMEL’ IF P-CLOCK IS P 


RESENT 
OR TO *TIME2’ < o a IS NOT THERE 


b 


WILL ONL 
CURRENT CYLINDER ROGRESS 
AND LOOK AHEAD REGISTERS 


Mo DHRECALI,-(SP) GET READY TO MOVE COMMAND 

BIS #GOITE, (SP) :GET READY TO SET GO AND 
ENABLE INTERRUPT 

MOV (SP)+,dRHCS! 360 WITH 


IN RHCS1 FOR RECALISRATE 
sHITH INTERRUPT ENABLED 


MOV dR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
MOV dR3,RS :SAVE RHDSI DURING ABOVE OPERATION 
;WAIT FOR ORY BIT TO SET 
RHDS1 WAIT FOR pa REGISTER 
DRY ;sWAIT FOR DRY SIT IN RHOS! REGISTER 
5609. ALLOW S6000 MICRO SECONDS 
5599. DRY MUST SET BETWEEN 
310 AND 111990 MICRO SECONDS 
JSR PC, adeCLOISK ;SET RI-RHCS1, + beta 


;R3-RHOS1, RY-RHERI 


LD NOT SET 
BECAUSE SEARCH DOES NOT READ KEADER BUT ONLY USES SECTOR COUNTER 
y REE RARER AREER EKER REE E EER ER ERE E EERE RE HEAR EERE RARE REE REEL EERE EES 


titic: 






SES 0137 








MNDEC@ 12 -D2RIJ-A RFO4/S “6 FUNCT. 


DDRIJA.PLI 
4126 016230 
ye? O1E234 
4ise 

4129 Q16236 
4130 916240 
4i31 015244 
4132 O16250 
4133 

4134 016252 
4135 O16e56 
4136 Ogee 
4137 

4138 016264 
4139 16266 
4140 O16e72 
4141 016276 
4142 


4145 
4146 

4147 016306 
4148 O16304 
4148 

4150 018306 
4151 O16310 
4158 O16312 
4153 

4i54 916314 
4155 O16320 
4156 

4i57 O16322 
4i58 16354 
4159 16326 
4166 


4167 016336 
#169 “O1E342 
4173 016352 


41 
4176 O16354 
4172 016356 


tig 


0 
0 
C 
104021 
012746 
011637 
022605 


091405 


104063 


004037 
002200 


009001 
000901 
100009 


004037 
002222 


009091 
000091 
190008 


053737 


004037 
004512 
016360 


104047 
000207 


001124 


001126 


004500 


033674 


033674 


004644 


034002 





004536 


CONT. Te 
HEADER COMPARE ERR? - RHER1 HCE 


£7$: 


69s: 


1$: 
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MOV (SP) — ;SAVE FOR PRINTOUT 


CMP (§P)4.R ‘DURING ABOVE OPERATION ONLY IE! 30'DVAISDY 
‘AND COMMAND SHOULD BE SET: 

BEQ &7$ BRANCH IF GOOD 

MOV RO, A#SBDDAT : BaD 

MOV RI; J#REGADR ;FAILING REGISTER RHCS1 

ERROR 21° URING ABOVE OPERATION ONL ce 
SCOMMAND A ND IE'GO! puarRY SuouLp BE SET 

MOV #MOL! DPR! VV, -(SP3 TS SET DURING OPERATION IN RHDS 

MOV (SP). aa$GDDAT  ;SAVE FoRe 

CMP (SP)+,R5 : DURING ABE OPERATION ONLY MOL!IDPR! VY 
:SHOULD BE SET 

3EQ 69% :BRANCH IF GOOD 

MOV RS, J#SBDDAT :BAD DATA 

MOV R3, J#REGADR FAILING REGISTER RHDS1 

ERROR 3 !DURING ABOVE OPERATION ONLY 


:MOL!DPR!VV SHOULD BE SET 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 


RHCS1 :CHANGE RHCS1 REGISTER 

l i) BIT/BITS TO BE _CHANGEL 

i ;NEW VALUE OF SC IS i 

SC CHANGE SC BIT 

JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 

RHDS1 ;CHANGE RHDS1 REGISTER 

1 ;1 BIT/BITS TO afn CHANGED 

1 :NEW VALUE OF ATA IS 1 

ATA :CHANGE ATA arr 

BIS Q#ATTENT, d#SAVERE +24 ipa APPROPIATE ‘ATA’ BITS 
;FOR WORKING ORIVE IN 


‘SAVED “RHAS LOCATION 
;*COMPARE REGISTERS BEFORE SEARCH WITH AFTER SEARCH 


JSR RC, d#COMREG io SAVED REGISTERS WITH 
; PRESENT VALUE 

SAVERE ;GO0D DATA SAVED IN ‘SAVERE’ 

WC ; TEST DATA STARTING FROM *RHWC* 

1g. F 18. REGISTERS TO BE COMPARED 

1$ ; RETURN TO 1$ ON ERROR 

es ;RETURN TO 2$ ON NO ERROR 

ERROR 47 ;SEARCH TC A NON-EXISTANT 

RTS PC ;SECTOR CAUSED IMPROPER 


REGISTER CHANGE 


eC! 
ss 



























SEG 0139 








Lil 


MNDEC+ii-DZRJJ-A, RFOW/E’S FUNCT. CONT. TST-PT 2 MACYL1 27(655) 
DIRIJA.PL1 tig HEADER COMPARE ERROR - RHER1 HCE 


4 
tt 4 016360 2s: 


a + ene + 1 eee ee eS ee 


30-NAR-75 18:59 PAGE 92 


;GO00D DATA GIVES WHAT SHOULD 
BE THERE 


TRECEIVED DATA GIVES 
'WHAT WAS THERE AFTER 
SEARCH 


SES 0140 

















MNOEC- i " pet A, RFOS’S/6 FUNCT. CONT. TST-PT 2 MACY11 27(655) 30-NAR-7& 18:59 PAGE 92 SEQ Cl41 


DZRIIA.P t1? RESTORE SECTOR 1 CYLINDER 1 TRACK 1 









4197 5 RRA LAER EAA A ARE RAE LLL EERE RELA EEL REEES ELLE RE EELELEREREE EELS 
4188 t STEST 17 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 

4130 :* THIS REPLACES REMOVED SECTOR 

us i 

4194 ." WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
4 ii TRACK 0, SECTOR 1, KEYS=0, NUMBER OF WORDS 256 WORDS 

419? 1x THEN READ HEADER AND DATA FOR ABOVE. 

4138 ;* WRITE FRO FROM N BU FFER AND READ INTO BUFFER ARE FILLED WITH 

4209 x THE abate” CbneND IS THEN LOADED INTO THE REGISTERS EXCEPT 
439] x THE GO BIT, AND ALL THE REGISTERS ARE SAVED 

#506 i THEN GC IS’GIVEN FOR WRITE HEADER AND DATA 

< H 

4204 :% THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED 
4205 i THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 
< H 

4207 aaa 

439g % NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 

4209 x WITH ALL ONES, COMMAND 1S. LOADED INTO REGISTERS EXCEPT 

4215 x 0 BIT AND ALL REGISTERS ARE SAVE 

nae :# GO IS GIVEN FOR THE READ RONEN 





4216 7% ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
4217 :* THEN THE READ DATA 1S COMPARED. 







4219 ~ rg oo gee pce ernie 2 oneetppgaman nin eho peiecc hts peRN egy 
4220 016360 o00004 +2717: SCOPE 

4221 O16362 O12706 001900 MOV #STACK, SP :RESET STACK 

Wace Olb366 012727 OOO017 oo4so4 MOY #17, a8TSTNM -SAVE TEST NUMBER 











Wao3 
4224 016374 004737 033004 ISR PC, 3#CLDISK ;SET Ri-RHCS1 R2-RHCS2 
4555 *R3-RHDS1, R4-RH 

4226 :GIVE at INITIALIZE. 
4337 :SETUP UNIT NUMBER 






42e9 ;*FILL WRITE FROM BUFFER WITH HEADER 







4230 

4231 O16400 004037 032630 JSR RO, J#FLHEAD s SAVE HEADER DATA IN WRFROM 
He3e O16404 002370 WRFROM ;LOCATION WHERE SAVED 

4233 016406 000004 4 :NUMBER OF WORDS SAVED 

4234 O16410 010000 10000 PTRST DATA WORD 

4235 O164le 900001 1 ; ECOND DATA WORD 

4236 016414 000000 0 ; THIRD DATA WORD 

mf C1641 000000 0 FOURTH DATA WORD 

4239 ;*#FILL WRITE FROM BUFFER WITH DATA 







MNDEC-i1-DZRJJ-A 
DZRIJA.P11 


O16 = 


016432 
0 


01€450 
O164S2 


016462 


O1S464 
016474 
016476 


016500 
016502 


O16504 
016506 


OlES16 


C1E520 


t1? 


rr 
occoco 


ere 


000009 
cee 


ocosco 
004037 
000000 

001 


000 
177374 
002370 


000000 
010000 


002344 
004037 
002172 
004512 
000021 


004737 


rPows’} FUNCT. CONT. TST-PT 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


2 Gan 032654 


032630 


032654 


034766 


033152 


033064 





e 


JSR 


WREROM+1 
eb. 


HAS MATTE. Fr 


CHANGE WRITE PROM SUPPER 


JSR 
ani 


{ood 
1 


0 
0 


JSR , 
REINTO+10 
es6. 


;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR 
0 


WRFROM 


a) 
FMT22 


WRIFOR 


:¥NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 
ISR RO, aus AVE RE SI ER S 


RHWC 
SAVERE 
17. 


JSR 


MACY11 27(655) 30-MAR-76 18:59 PAGE 94 SEG O14e2 


UFFER So THA APE “A HRITE CONPRRISONS 
SURE THAT WRITE DID 


GET READY WRIFOR 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 






;CLEAR 256. Rated FROM WRFROM+10 
255, wok ARTING’ FROM WRFROM+10 


FILL WITH 0 


























3 SAVE HEADER DATA IN REINTO IK 
;LOCATION WHERE SAVED 

: NUMBER 4 Ra's SAVED 
:FIRST DATA WOR 


D 
: SECOND BATA WORD 
STHIRD DATA WOR 
:FOURTH DATA WORD 


; CLEAR oe ess § FROM REINTO+10 
1256. WO ist RTING FROM REINTO+10 


;FILL WITH ° 


;SETUP TO RUN FOR DATA COMMAND 
-CYLINDER 0 

: 0 

:WORD COUNT (DATA) = 256. + 

34 HEADER WORDS 


;BUS ADDRESS 
: STARTING ones OF DATA 
:BUFFER = WRFROM 
309 NOT INHIBIT BUS aoness INCREMENT 
316 BITS PER W FORMA 
D0 NOT INHIBIT ECC CORRECTION 


D0 NOT INHIBIT HEADER COMPARE 
TQ DO AW 


ADDR 
; THE REGISTERS ARE SAVED 
a MOER OF REGISTERS 
;SAVED = 17. 


;CHECKS DVA,RDY,MOL,DPR,ORY AND VY = 1 





Coe se oe oe 
9494) 
oO” Ms 


CIGIC ICICI IC ITU ITT TD 


bee bee Se eee ae ae See ae Se Pee Se ee ee ee ee ee eee ee ee ee ee 


690) 00036) GIGIGIOIGIGIGILIGIGIGIGS 


ve 





g:PORII-8, iBFOS S 


4, 1S ee — 


2265354 


ts] as | ae Te | a 
eer eer ee ee ed 


oor 


I~) 


orm 


Oooo OOoOM 
oo3- 
ir 


Crm” TMOmwr Mao«omm 

RQ rmommwr mau 
feat) boa 20-26 
os ormo 


ee ay ar eT ~~ +9 «+b ar ee ed oe 
ow 
ty 
ys 


oO OOONdO OOM 


* 

au 
or 
an 
fw 





TST-PT @ 
CYLINDER 1 TRACK 1 


Mur futs 


ed, 210M) 
8 an ule 


Oe-r-O 


os 
OW £ - 
unm UT Ono o 


-Ooo 
ws 


mm rR RRR 





Ble 
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;ANOD THAT ALL STATUS B 
ire , CPHALT sEANNOT dad ada TESTI 


MOV DBRPYVEC, IRPVEC sa8T, RPOY Pin £98 hee 


IT 
NG I 


OF mee WILE ONLY Pet 
SCURRENT CYLINDER AD 
SAND LOOK AHEAD REG! 


MOV JsWR? FOR, -(SP) 3967 READY TO OYE ane 
Bis acorte, (SP) SET READY TO SET 


ENABLE INTERRLET 


MOV SP)+, dRHCS! TH 
-62 IN RHCSL FOR WRITE HEADER ANC 
sHITH INTERRUPT ENABLED 

MOV DRL, RO “SAVE RHCS1 DURING ABOVE OPERATION 

MO\ aks .85 :SAVE RHOS! OURING ABOVE OPERAT ON 

-#0NE REVOLUTION216670 MICRO SEC, bE SECTOR = 760 MICRO 

WaT dry FOR RDY SIT TO SET 

RCS! WAIT FOR RHCS1 Teaistee 

RDY cualT FOR RDY BIT IN RHCSL REGISTER 

90s. :ALLOW 9080 MICRO SECONDS 

$33. iO MUST SET SETWEEN 


3650 AND 17470 MICRO SECONDS 


;®COMPARE CONTENTS OF RHCS: AND RHDS] ALREADY SAVED IN 
;#RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MOV @aWRIFOR,-(SP) -:SAVE COMMAND 
ats sIE'GO'DVA, (SP) ; INCLUDE IE'GO!DVA 
MoV (32) 53 sascha spAVE FOR SRINTOUT 
CMP SP) +R sbuR ING Reove OPERATION. QNLY IE!SOIDva 
AND COMMAND SHOULD GE SE 
REQ £4 BRANCH IF GOOD 
MOV RO, J8S8DDAT :8AD DATA 
ay Ri; a@REGADR FAILING REGISTER RHCS! 
ERROR 2] “DURING ABOVE OPERAT 23h ON LY 
i COMMAND: BND IE'GO'DVA SHOULD BE SET 
MOY SMOL!DPRIVY, -(SP -SAVE SITS SET BURING SBERSTIO 
MOV (SP), de$G00 Sat -SAVE FOR PRINTOUT 
CMP (5P)$.R5 DURING ABOVE OPERATION ONLY MOLIDPRI yy 
SHOULD BE SET 
BEG ES BRR NCH IF G00D 
MOV RS, JeSSODAT ATA 
Moy R32 JUREGADR FAILING REGISTER RHOS} 
ERROR 63 sDURTNG ABOVE OPERATION ONLY 
:MOLIDPRIVY SHOULD BE SET 


;#NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 











CT, CONT. = MACY11 27(655) 
STS SECTOR 1 “EYLINOER 1 TRACK 1 


ono mom 


Oooo 


ny GIGIVIGIL 
IID IO OnS 
9.00 
| 


oe Dae San ous Sue oun ome eam 
7] 
= =b 20 O re) 
oO £Maon wy 


fupe--e—-S-) 
te” 3CD 


aon were FROM SUFFER 


4 
tw 


o 


© 
- 


4 ee ee eS 
MOWOooOc 


CCID 


uri 
Sern Pe 


oo 


e-o- 


D HERDER AND DATA COMMAND WILL BE GIVEN 
BUPFER IS FILLED Wi TH ONES 


ee ee ee eee eee 
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;MOV_O INTO SAVED RHWC 
: BYE REGISTER TO CHANGE 





;MOV_WRFEROM+<260.#2> INTO SAVED RHBA 
; SAVED RESTOTER TO CHANGE 


AVED RHOST 
ER TO CHANGE 


wu) 


BS SeMBnD WRITE HEADER AND DATA 


: COMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 

: 9000 DATA SSyeD IN ’SAVERE’ 
sTEST DATA STARTING FROM “RHWC’ 

317, REGISTERS TO EA og oMPARED 

13 ON ERROR 

2$ ON NO ERROR 


;WRITE HEADER AND DATA 
: RUSED IMPROPER REGISTER 
#3000 Rae” GIVES WHAT SHOULD 


Foevies DATA GIVES WHAT 
inns THERE AFTER COMMAND 


WILL BE CHECKED TO SEE THAT 
s COMPARE TWO BLOCKS OF MEMORY 


:260., WORDS 
:RETURN TO 3% ON ERROR 
:RETURN TO 4$ ON NO ERROR 


;WRITE HEADER AND DATA 
;CHANGED WRITE FROM BLFFER 


NNOEC=1 
DraT Ta. 


1-DIRII 


Pil 


3-4 
. 


Ooaong 


SS 


ob + 
th 
ormruw 
mooty 


QO 980000 

b+ 0-20 2 -* 

ti Soe, 
~J~3~3~ 

O+£ 


o- 








“A, REO -S/& FU TST-PT 2 MACYL] 27(65S) 30-NAR-76 18:59 PAGE 97 
ti? RESTORE seo F5R" 1 CYLINDER 1 TRACK | 
4$: 
p0473? 032004 JSR C, JaCLDISK : SET Ri-FHCS1 R2-RHCS2 
*R3-RHOS1, RY-RHER] 
:GIVE Riel INITIALIZE 
:SETUP UNIT NUMBER 
004037 032654 JSR RO, JeCLAREA :CLEAR 260. WORDS FROM REINTO 
po3434 REINTO :STARTING FROM REfNT 
SOoso4 260. :260. WORDS 
beens =] FILL WITH =1 
:#NOW FILL COMMAND 
994037 O347ES JSR RO, 2#RUN sSETUP TO RUN FOR DATA COMMAND 
900639 5 :CYLINDER 0 
601 -BYTE 1 SECTOR l 
alala} "BYTE 0 KO 
177374 256. -4 :HORD COUNT (DATA) = 256. + 
HEADER WORDS 
003434 REINTO ‘due ADDRESS 
; STARTING RCDRESS OF DATA 
:BUFFER = REINTO 
go0n00 9 :DO NOT INHIBIT Bus RODRESS. HNCREMENT 
014580 ECI°FMTzZe -16 BITS PER WORD F 
s INHIBIT ECC CORRECTION 
eee :00 NOT IN Hier HEADER COMPARE 
902250 REFOR -GET READY TO DO A REFOR 
*READ HEADER AND DATA WITH 72 IN RHCS! 
;sNOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
9040327 032152 SSR 5, asSAVER SAVE REGISTERS 
00217 REWC RHE 1S THE FIRST REGISTER SAVED 
Ao4sle SAVERE STARTING ADDRES OF WHERE 
:THE REGISTERS ARE SAVED 
pocoze 18. !NUMBER OF REGISTERS 
:SAVED = ig. 
904737 032064 ISR PC, JBCHECKT s CHECKS ove, ROY “MOL DPR.DORY AND vv =! 
AND T status arts ARE = 0 
1D4400 osee62 TYPE ,CPHALT sceNCT ALON ENGE TESTING IF NOT 
600088 HAL T :STOP TEST 
013777 OO4S06 163126 MOV DORPYVEC, TRPVEC ;SET RPOY VECTOR ADORESS 
;10 *TIMEL’ IF P-CLOCK IS PRESENT_ 
30R TQ "TIMES? IF B-CLOCK IS NOT THERE 
:* TIME’ WILL ONLY SAVE 
CURRENT CYLINDER ADDRESS 
:AND LOOK AHEAD REGISTERS 
012746 o02350 MOV DSREFOR,-(SP)- GET READY TO MOVE COMMAND 


a ee ee ee ee 





ha atin seme | ae S/6 FUNCT 
RESTORE SECTOR 1 CYLINDER 1 TRACK | 


XMIOOICS 
o-e- CTU 
Note 


tf 
t 


OoOoM 
Q0UO+e- 
C= OO 
£00 


oOo 


— 


fn 


Ooo- 


fTuOMa ofr 
Oo ow 


U1E.£G) GIGITD fe-r-e- 

COLOR £0.46 

—-200 9200 -oo 
Tue o-- . 


I-—-O 





. CONT. TST-PT 2 MACY11 27(655) 30-NAR-76 18:59 PAGE 9€ 
Bis aGO'NTIE, (SP) :GET READY TO SET GO AND 
sENABLE INTERRU 
MOV (SP)+, RHCS1 WITH 5) FOR READ DATA 
“ube i Ena 
MOV DRL. RO :SAVE RHCS1 DURING OEE OPERATION 
MOV JR3.RS -SAVE RHDSi DURING ABOVE OPERATION 
WAT sWAIT FOR RDY BIT TO SET 
RHOS1 :WAIT FOR RHCS] REGISTER 
ROY :WAIT FOR RDY BIT IN RES! REGISTER 
308. ;ALLOW $080 MICRO SECONDS 
333. “ROY MUST SET 


BETWEEN 
:690 AND 17470 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS] ALREADY SAVED IN 
;#RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MOV DeREFOR,-(SF)_ SAVE COMMAND 
BIS BIE'GO! tbva,(s SP) EN FoR Fe IE'GO!DVA 


MOV (SF), as$GDDA ;SAVE FOR PRINTOUT 

CMP (SP)+,RO iu URING ABOVE OPERATION ONLY IE!GO!DVA 
° AND COMMAND SHOULD BSE SET 

BEG ¥ BRANCH IF GOOD 

MOV RO, as$8DDAaT :BAD DATA 

MOV R1,asREGROR ;FAILING REGISTER RHCS1 

ERROR 2] :DUR ING ABOVE OPERATION ONL 


¥ ;COMMAND SND _TE!GO!DVA SH aire gE 
67S: MOV SMOLIDPRIVy, -(SP3 - SA\ 
MOV °° (SP). aRSGDDAT  :SAVE FOR PRINTOUT 


cM (5P)4,R5 :DURING ABOVE OPERATION ONLY MOLIDPR! VY 
;SHOULD BE SET 

BEG «SS :BRANCH IF GOo0 

NOV RE, gasB00AT CATA : 

MOV --RB'DeREGAOR «©» FATLING REGISTER RHOS! 

ERROR 63 ;DURING ABOVE SBERATICN ONLY 


sMOLIDPR!VV SHOULD BE SET 
sf: 


;*CHEANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC : SBVED REGISTER TO CHANGE 


. RO, d8F ILLRE ;MOV_REINTO+<260.%2> INTO SAVED RHBA 
:SAVED REGISTER TO CHANGE 
REINTOS. 260. #2) ;DATA 


JSR RO, dt .LLRE ;MOV_2 INTO SAVED RHDST 
RHOST ;SAVED REGISTER TO CHANGE 


ee ee ne ee 





SET 
VE BITS SET DURING OPERATION IN RHOS 








6 ST-PT 2 
See ST SRE SESTOR' 1 SVLINDER 1 TRACK I 
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2 ;DATA 


; ¥COMPARE REGISTER BEFORE READ HEADER AND DATA 
s*WITH REGISTERS AFTER COMMAND 


JSR RC, J#COMREG ; COMPARE T ALLE REGISTERS WITH 


; PRESENT 
SAVERE ;G00D DATA SAVED IN ‘SAVERE" 
WC :TEST DATA STARTING FROM RC’ 


18. 318, REGISTERS TO SE COMPARED 
S$ ;RETURN TO S$ ON ERROR 
&$ :RETURN TO &% ON NO ERROR 


i ;READ HEADER AND “gil ae 
C SIMPROPER REGISTER CHANG 
; GOOD ene GIVES THAT SHOULD 


HE 
;RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


;#NOW READ INTO SUFFER WILL SE CHECKED TO SEE 
r#THE READ WAS GOOD 


ISR RO, JsCOMPAR sCOMPARE TWO BLOCKS OF MEMORY 
WREROM -GO0D DATA STARTS FROM WRFROM 
REINTO TEST DATA STARTS FROM REINTO 
260. 260.,. WORDS TO BE COMPARED 
7g RETURN TO 7$ ON ERRO 

10$ sRETURN TO 19S ON NO ERROR 
ERROR 32 s RITE HEADER AND DATA 

RTS BC WED BY A READ HEADER 


AND DATA GAVE A READ ERROR 
:ERROR MAY BE IN RESD OR WRITE 


















ati “A, RFOY/S/§ FUNCT 


DIRIIA.P 


0) 
SMM .£ 


enetenstatanens 
q 
ie 
La 


t? 


005737 
001411 


994937 


laleleels 
000410 


004037 


+ 000000 


004037 
002400 


009400 


001999 
000020 


033004 


032630 


022654 


CONT. TST-PT 2 
RESTORE SECTOR 1 ALINOER 1 TRACK 1 


004504 


ts 
* 
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j RRRRRRAAAAARERRRRA RA RARE EERE REE ETRE EERE EERE EE ERR RE REED 
TEST 20 INVALID ADDRESS ERROR - RHERI - ‘IAE’ 


A WRITE HEADER ae DATA WILL SE ATTEMPTED TO CYLINDER 411.7815. 


1 * TRACK 5, SECTOR 
3% INVALID ADDRESS ERROR (IAE) BIT #i0 IN RHER! SHOULD SET 
©  SESESELRRRA ERASE ERE SSR FSREREE HES KEKE LSESLFRA LFS SF SESSA FSFFE 
+720: SCOPE 
MOV #STACK, SP sRESET STACK 
MOV #20, 8 TSTNM :SAVE TEST NUMBER 
ISR PC, JCLDISK ;SET RI-RHCSI, fechHC S2 
:R3-RHDS1 
: GIVE Reel INITEELIZE 
:SETUP UNIT NUMBER 
¥CHECK THE DRIVE TYPE AND THEN FILL THE 
:4WRITE FROM BUFFER WITH APPROPRIATE HEADER 
4 PEUTTETT TTT T TET T TT TTT TTTTCTT TESTE TT ESET TTT T ST TSEC TSE TEE TET TET ET A 
aeRPOG =; TEST FOR RPO& DRIVE 
S$ TREAT UNIT aS AN RPOY 
- TREAT AS AN RPO 
as POI Lae NCP tay i Rn, Be By! BARDS ee aS 
JSR RO, J#FLHEAD :SAVE HEADER DATA IN WRFROM 
WRFROM “LOCATION WHERE SAVED 
4 :NUMBER OF WORDS SAVED 
1145? FIRST DATA WOR 
6 :SECOND DATA WORD 
0 : THIRD DATA WO 
9 :FOURTH DATA WORD 
BR &S :CONTINUE WITH SET UP 
S$: 
JSR RC, QYFLHEAD :SAVE HEADER DATA IN WRFROM 
WRFROM LOCATION WHERE SAVE 
:NUMBER OF WORDS SAVED 
10633 :FIRST DATA 
5 :SECOND DATA WORD 
0 ‘THIRD DATA WORD 
:Q ; FOURTH DATA WORD 
6$: : CONTINUE 


;*#FILL WRITE FROM BUFFER WITH DATA On 


ISR RO, J#CLAREA ; CLEAR 256. WORDS, FROM WRFROM+10 
WRFROM+10 TARTING FROM WRFROM+10 
256. 256. words 











MNOEC*11-D2RIJ-A, RON S/S FUNCT. CONT. 
t20 INVALIO ADDRESS ERROR - RHERI - “IAE’ 


OZRITA.Pi21 
4503 017346 


4631 01737 
4635 
4533 
4634 91737 
4635 017374 
4536 
4637 


Oi7424 


P9999 
liéddi 


005737 
O0i4le 


oo4037 
001957 
900 


590 
177374 
002370 


009900 


010009 
002344 
000411 
004037 
000633 
900 
17737 
092370 


000009 
010000 


002344 


_ 


OO4E36 


O347E& 
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0-1 sFILL WITH O-1 


7 *THE DRIVE *YPE IS CHECKED AND THE APPROPRIATE 
;*WRITE HEADER AND DATA COMMAND IS LOADED 


ee en en ee ere ee 
aeRPO& ; TEST FOR_RPOG DRIVE 
38 ;TREAT UNIT AS RPO 
TREAT UNIT AS RPOE 
etererttitiirittrittretitititisttrttritretitetiietrititirrrtire! 


Hes RO, a#RUN ;SETUP TO ‘hres FOR DATA COMMAND 


is. : CYLINDER 
BYTE 0 SSECTOR C 
"BYTE 0 STRACK O 
-256.-4 !WORD COUNT (DATA) = 256. + 

:4 HEADER WORDS 
WRF ROM :BUS ADDRESS 

STARTING ADD ADRESS OF DATA 

6 309 NOT INIBEY "BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 


WORD FORM 
ti NOT INHISIT ECC CORRECTION 
:DO NOT INHIBIT HERDER COMPARE 

WRIFOR GET READY TO DO A WRIFOR 
WRITE HEADER AND DATA WITH G2 IN RHCS2 


* SR 4§ :CONTINUE WITH TESTING 
JSR RO, J#RUN -SETUP TO RUN FOR DATA COMMAND 
Gil. :CYLINDER 411. 
BYTE 0 SECTOR 6 
“BYTE 0 ;TRACK 9 
-256.-4 “WORD COUNT (DATA) = 256. 
:4 HEADER WORDS 
WRFEROM AODRESS 
STARTING ADDRESS OF DATA 
:BUFFER = WRF 
Q 00 NOT INHIBIT BUS BDDRESS INCREMENT 
FMT22 216 BITS PER WORD FORMA 
:60 NOT INHIBIT ECC CORRECTION 
:00 NOT INHIBIT HEADER COMPARE 
WRIFOR *GET READY TO DO A WRIFOR 
:WRITE HEADER AND DATA UrTH” 62 IN RHCS! 





4S: ; CONTINUE 
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OzaTIA.PL! t20 INVALID ADDRESS ERROR - RHERI - “IAE’ 
4g63 :#NOW SAVE REGISTERS FOR COMPARISON AFTER 
454 :#WRITE HEADER AND DATA 
456 o174e4 O04037 033152 ISR RO, JHSAVER :SAVE REGISTERS 
4667 917430 00217 RHWC ?RHWC IS THE FIRST REGISTER SAVED 
469 Di7432 004513 SAVERE :3TBRT ING ADORES OF Wi WHER E 
469 :THE REGISTERS ARE 
470 «O17434 o00022 18. ‘NUMBER OF REGISTERS 
#2 ‘SAVED = 18. 
4673 017436 004737 033064 ISR PC, JRCHECKT ;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 
uS74 -AND THAT ALL StaTUS BITS ARE = 0 
HB7S5 O17442 104400 OSéSE2 TYPE | CPHALT : CANNOT LONT ENTE TESTING IF NOT 
428 oi7446 690000 HAL T :STOP TEST 
4678 OL74SO O13777 OO4SOS 162510 MOV DeRPYVEC, ORPVEC ; SET RPOY VECTOR ADDRESS 
4B? :TO 'TIMEL’ IF P- =CLOEK IS PRESENT 
4680 OR TO 'TIME2' If B-CLOCK IS NOT THERE 
468] -*TIME’ WILL ONLY SAVE 
ugg : CURRENT ENC INDER ADDRESS 
4683 :AND LOOK AHEAD REGISTERS 
ues 
ve ) 
4686 DI745$ O1374S 902344 MOV DBWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
4687 O17462 052716 O0010! Is #GO!TE, (SP) :GET READY TO SEI GO AND 
4688 ENABLE | INTERRU 
WESS OL74S6 012677 182506 MOV (SP)+, ORHCS1 G9 WITH 
ues 2 IN RHCS1 FOR WRITE HEADER AND DATA 
4691 ita INTERRUPT ENABLED 
ue 93 
4693 
4eS4 OI7H72 «1O4412 WAT :WAIT FOR IAE 817 TO SET 
H685 Oi7474 OO2252 RHER} :WATT FOR RHERI] REGISTER 
4696 O1747— 002000 : Ae :WAIT FOR IAE BIT IN RHER! REGISTER 
4697 917500 900911 S. “ALLOW 90 MICRO SECONDS 
uss 617502 000011 9: *TAE MUST SET BETWEEN 
4655 :50 AND 180 MICRO SECONDS 
4701 
470 
4708 : #CHANGE: THE SAVED REGISTERS TO EXPECTED VALUES 
4705 ;#AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 
4706 ;*#RHUC,RHSA,RHCS1 & RHCS2 CANNOT BE PREDETERNINED - 
4707 THEY WILL’ VARY DEPENDING ON GATE DELAYS FOR INFEFERENT UNITS 
4709 O17504 017727 162462 ocOo4sle MOV DRHWC,aRSAVERE ;RHWC IS UNPREDICTABLE 
4710 AS EXPLAINED ABOVE 
Hil 017512 017727 62456 oo4s14 MOV JRHBA, I#SAVERE+2: sRHEA I rs agNEREDICTABLE 
a 
4i3 617520 017737 182452 CO4S16 MO\ DRHCS2, JBSAVERE+S: mB AES 1s UNPREDICTABLE 


Pp 
4715 O17526 017737 162446 oOo4s20 MOV DRHCS1, D¥SAVERE+S:RHCS1 IS UNPREDICTABLE 
71é :AS EXPLAINED ABOVE 








MNDEC*12-DZRIJ<-A8, RFOYS/S FUNCT. CONT. TST-PT 


DIRITA.PiL 
471? 
4718 017534 
ne 017540 
“721 917542 
4722 017544 
4723 O17546 
4724 017550 
4725 017552 
$726 
47e? 017554 
4728 017589 
47293 
4730 017562 
4731 O17S64 
4732 O17566 
4733 
$734 017570 
4735 
4735 
4737 O17S765 
4738 
4735 
4740 
4741 
4742 
4743 
4744 
4745 


4746 017604 
$748 «(017610 


4752 Bives0 
4755 017622 
4756 017624 


4766 017626 


te20 

904037 
002222 
gqgnce 


040000 


004937 
J0e20e 


090001 
000001 
Co2000 


053737 


017737 


004037 
004Si2 


017626 


104054 
000207 


é 
INVALID ADDRESS ERROR - RHERI - 


033674 


033674 


OO4¥E44 004536 


16e40e 004524 


: j RERERA RAE E KELLER EEK EK EKER EKER AK RK EK EEE EERE REE E REE ARES LAKERS FEE 


1$: 


es: 


JSR 
RHDS1 


MOV 


MACY11 27655) 
* TRE’ 


RO, J&CHREG 


RO, J&CHREG 


DJSATTENT, sent ;SET APPROPIATE ‘ATA’ BITS 


SO-NAR-76 18:59 PAGE 103 


;CHANGE BITS IN SAVED REGISTER 


CHANGE RHDS1 REGISTER 


;2 BIT/BITS TO ata CHANGED 
: NEW Ma S OF ATA IS 1 
:CHANGE A avert 

; NEW VALUE OF ERR IS 1 
;CHANGE ERR BIT 


;CHANGE BITS IN SAVED REGISTER 


:CHANGE RHER1 REGISTER 


1 BIT/BITS TO BE CHANGED 
‘NEW VALUE OF IfE IS i 
:CHANGE IAE BIT 


RHORKING DRIVE IN 
AVED RHAS LOCAT 


TON 
@RHDST, ausnvere+l2 sRHDST IS INDETERMINATE 


O’IT IS NOT CHECKED 


;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH 
;#CONTENTS AFTER ATTEMPTED WRITE WITH AN *IAE* ERROR 


JSR 

SAVERE 
tS. 
1$ 
23 


ERROR 
RTS 


RO, d#COMREG 


SY 
PC 





pi te | ty REGISTERS WITH 
PRESENT VALUE 

:GO0D DATA SAVED IN *SAVERE’ 
TEST DATA STARTING FROM — 
18. REGISTERS TO BE COMPARED 
RETURN TO IS ON ERROR 

RETURN TO 33 ON NO ERROR 


;ATTEMPTED OPERATION WITH 
: INVALID_ ADDRESS CAUSED 


CHANGE 
3 GOOD ease GIVES WHAT SHOULD 
tRECETVED DATA yim SEGISTER 


;CONTENTS AFTER A 
SWRITE HEADER AND DATA 


SEO 0151 

































K1 
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CY 
DZRIJA.P 11 t20 INVALID “ADDRESS ERROR - RHERi - *IAE 


4765 LesenneennunEsgrnetuaternerssnesensnensneanteerenenynenseannene 
ices #TEST 21 INVALID ADDRESS ERROR - RHERI (BIT #10)IAE 


: 8 WRITE DATA IS ATTEMPTED TO CYLINDER 0, TRACK 19, 
:* ere ADDRESS ERROR IAE BIT #10 IN RHER1 
;* ULD SET 


4773 ee 
4774 017626 o00004 $4121: SCOP 
S775 017830 312706 001000 ao #STACK, SP ;RESET STACK 
na | 017634 012737 O00021 o04504 MOV 821, aetSTNM : SAVE TEST NUMBER 
(de 
nae O17642 O04737 033004 JSR PC, d#CLDISK Re inet Ra cRH R2-RHCS2 
i¢ 
4780 ‘GIVE ERE INT TTALIZE 
4781 : SETUP UNIT NUMBER 


4783 ;*FILL WRITE FROM BUFFER WITH DATA 


4785 017646 004037 032654 JSR RO, J#CLAREA ;CLEAR 2S&. WORDS, FROM WRFROM 
4786 O176Se 002370 WRFROM :STARTING FROM WRFROM 

4787 017654 oCO409 eS6. :256. WORDS 

4788 017656 000377 37? FILL WITH 377 


4791 ;*WRITE DATA COMMAND WILL BE FILLED 


4795 
4793 O17660 O04037 O34766 JSR RO, 2#RUN ;SETUP TO RUN FOR DATA COMMAND 
u794 017664 900000 0 :CYLINDER O 
4795 017566 000 -BYTE SECTOR O 
4796 017567 023 "BYTE 19. - STRACK 19. 
4787 017870 177400 -256. :WORD COUNT = 256. 
4768 017672 602370 WRFROM :BUS ADDRESS 
4799 ; STARTING ADDRESS OF DATA 
- 4805 ‘BUFFER = WRFRO 
4601 017674 900000 0 DO NOT Inert BUS RORESS INCREMENT 
4802 O17676 O10000 FMT22 16 BITS PER WORD 
4803 00 NOT INFIBTT ECC RORRECTION 
4804 :DO_NOT INHIBIT HEADER CONPAR E 
4805 O17700 o02342 WRIDAT -GET READY A WRIDAT 
4805 :WRITE DATA MITH 60 IN RHCS! 
4E08 : 
4899 . ,#SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 
4810 017702 004027 033152 Sk RO, JHSAVER :SAVE REGISTERS 
W811 Ol7708 002172 ; *RHWC IS THE FIRST REGISTER SAVED 
uBi2 617710 OO4sle SEVERE :STARTING ADDRES OF WHERE 
4813 . THE REGISTERS ARE SAVED 
4814 017712 cOootze | 18. :NUMBER OF REGISTERS 
HE15 :SAVED = 18. 


. 4817 017714 004737 033064 JSR PC, J&CHECKT ;CHECKS DVA,RDY,MOL,DPR,ORY AND VV = 1 


RODE a ABs, Trae 





MNDEC=11-DZRJJ-A, RPOW/S/’& FUNCT. CONT. 


ZRIJA.P11 


4830 017734 
4831 017740 


4833 017744 


4838 017750 


4845 017760 


4853 017762 
4855 017770 
4857 017776 
4859 O20004 
ges GE00L6 
4865 020020 


te: 

104400 
So0000 
013777 


013746 
052716 


012677 


Aah 


009811 


017737 
017737 
017737 
017737 
004037 
O0e2e2 
000002 


017737 





le 
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Té 
INVALID ADDRESS ERRCR - RHER] (BIT #10)IAE 


OS6662 


Oo4S06 


00e34e 


162232 


OOD101 -# 


162230 


162204 
162200 
162174 
162170 


033674 


ibel46 


004512 
004514 
004516 
004520 


004524 


;AND THAT ALL STATUS BITS ARE = C 
TYPE »CPHALT CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 


MOV JBRPYVEC, IRPVEC ; ‘mT, re VECTOR ADDRESS 
310 ° hos iF P- he IS FRESENT 
;OR TO ’TIME2’ A CLOCK is NOT THERE 
*TIME’ WILL ONL Y SAVE 
CURRENT CYLINDER ADDRESS 
:AIND LOOK AHEAD REGISTERS 


MOV DRWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO!TE, (SP) :GET READY TO SET GO AND 
ENABLE INTERRUPT 

MOV (SP)+, QRHCS1 360 W TH 

-60 IN RHCS1 FOR WRITE DATA 

;WITH INTERRUPT ENASLED 


;WAIT FOR IAE ie TO al 


RHER1 WAIT FOR RHERI R 
;sWAIT FOR IAE SIT IN RHER! REGISTER 
;ALLOW O MICRO SECONDS 

| ;IAE MUST SET BETWEEN 
:00 AND 180 MICRO SECONDS 

; *CHANGE SAVED REGISTERS TO EXPECTED VALUES 


; #85 EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 
S*RHWC,RHBA,RHCS1RHCS2, CANNOT BE PEREDE TERMINED 

THEY” WILL’ VARY 1 SEPENDING ON GATE DELAYS ON DIFFRENT UNITS 
MOV DRHWC , IRSAVERE = RUNG, JS, WNPREDICTABLE 
MOY DRHBA, J#SAVERE+2; RHBA Is UNPREDICTABLE 
MOV SRHCS2, JeSAVERE+4: iRHCSe 1S UNPREDICTABLE 


MOY JRHCS! DUSAVERE+4; -RHCS1 IS UNPREDICTABLE 
:AS EXPLAINED ABOVE 


JSR RC, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 

e 32 BIT/BITS TO BE CHANGED 

1 NEW VALUE OF ATA IS 1 

ATA ; CHANGE ATA 


1 
ERR 


iC N ° 
MOV DRHDST, DRSAVERE+{2 ;RHDST IS INDETERMINATE SO IT IS NOT CHECKED 





SEQ 3153 


MNDEC- 1" yeadte RFOY/S/& FUNCT. CONT. TST-PT 2 1 27 
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DZRIJA.P 


020040 
020044 
020046 
020950 
020052 


020054 


020062 
Q20066 
020076 


029100 
02012 


020104 





t21 
904037 
o02202 


002000 
053737 


004037 
o04Sie2 
020104 


104054 
000207 


033674 


CO4¥E44 004536 


034002 


1$: 


MACY! (655) 


RO, J&CHREG 


Q#ATTENT, NER TOR ; SET enero tn *ATA’ BITS 


SO-NAR-76 18:59 PAGE 106 


;CHANGE BITS IN SAVED REGISTER 
:CHANGE RHERI REGISTER 


;2_BIT/BITS TO BE CHANGED 
;NEW VALUE OF IAE IS 1 
CHANGE IAE BIT 


R WORKING DRIVE I 
:SAVED RHAS LOCAT oN 


;¥COMPARE REGISTERS BEFORE ATTEMPTED WRITE —_ 
*WITH AFTER ATTEMPT, IAE SHOULD BE SET 


JSR 
SAVERE 
W 


ERROR 
RTS 


RO, d#COMREG 


SY 
PC 


tERESENT “VALUE REGISTERS WITH 


36000 DATA SAVED IN ‘SAVERE" 
;TEST DATA STARTING FROM "RHWC* 
318, REGISTERS TO SE COMPARED 
;RETURN TO 1$ ON ERRO 

RETURN TO 2$ ON NO ERROR 


Tn te WRITE DATA 
WITH INVALID ADDRESS 
CASED IMPROPER REGISTER 


:G00D DATA give? WHAT 
;SHOULD BE THERE 

: RECEIVED DATE GIVES W 

:WAS THERE AFTER AFTER BTTENET 


SEQ 0154 
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DZRIJA.P11 t21 INVALID ADDRESS ERROR - RHER1 (BIT #lO)IAE , 














4 

4906 i lah Sallalalalak Seb tlh ah bbb abb blah habla hall tela le 
m4 tet TEST 22 INVALID ADDRESS ERROR RHERI -BIT #10 

4309 7% A READ HEADER AND DATA IS ATTEMPTED TO CYLINDER O 

4910 7% TRACK 0, SECTOR 22 itn 

4911 3% INVALID ADDRESS ERROR IAE BIT #10 IN RHERI 

4912 7* SHOULD SET 

4913 :% THIS WILL START WITH THE HEADS ON CYLINDER 10 

aie i* cove THAT IAE SETS EVEN BEFORE THE IMPLIED 






















4317 jreveerernrene ree ceecceannaceaccaconeneanenanennenneenteteass 

4918 O20104 oDD004 +ét22. COPE 

4919 020105 012708 901000 Roy #STACK, SP ;RESET STACK 

4320 020112 012737 o00022 oo4so4 MOV kee, J#TSTNM :SAVE TEST NUMBER 

4922 020120 004737 033004 JSR PC, #CLDISK SET RI-RHCSI, Re- RHCS2 

4923 :R3-RHDS1 

4934 :GIVE Raed INT TAL IZE 

1306 :SETUP UNIT NUMBER 

4387 ;*GET THE HEADS TO CYLINDER 10 

4929 020124 004737 032064 JSR PC, J#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
4939 :AND THAT ALL StaTUS BITS ARE =O 

493i 020130 194400 oOS&6E2 TYPE  , CPHALT : CANNOT CONTINGE Teer eh IF NOT 

1332 620134 ooog00 HALT :STOP TEST . 
4934 020136 013777 OO4SOB 182022 MOV DeRPYVEC, ORPVEC ; SET RPOY VECTOR ADDRESS 

4935 :TO ‘TIME!’ IF P-CLOCK IS PRESENT 
4936 30R TO *TIME@’ IF P-CLOCK IS NOT THERE 
4937 - -*TIME’ WILL ONLY SAVE 

4932 :CURRENT CYLINDER ADDRESS 

4333 sAND LOOK AHEAD REGISTERS 






4942 020144 004037 032754 JSR RO, J#SEEKCY ;SEEK FOR 
4943 020150 O00010 10 CYLINDER 10 









4947 020152 013746 ope25e2 MOV a4SEECOM =(SP) ;GET READY TO MOVE COMMAND 
ugug 20156 O62716 ooo1o1 BIS #GO'TE, (SP) :GET READY TO SET GO AND 
4949 ENABLE INTERRUPT 
4950 020162 012677 162012 MOV MEETS, 60 W 
495] IN "Bucs FOR SEEK 

_ 49ge itt INTERRUPT ENABLED 






4955 O20166 104412 WAT ;WAIT FOR DRY BIT TO SET 
4956 020170 O02222 RHDS1 *WAIT FOR RHDS] REGISTER 
4957 020172 o00200 DRY :WAIT FOR DRY BIT IN RHDS! REGISTER 





4958 020174 015530 7000. SALLOW 70009 MICRO SECONDS 





fiasistisibenseesbascnenachinicies ; , itinstnienrias 


- & 


53 
60 
ei 
Se 
. 2 


49 
2 


-£ 
ri 
r 


ed 


at etd 


yale ary 


do CCD CPL 


PATRAT RATA) 
“e--O 
fme-OOw 


Canto 


eertustes 
| el el el 
iil 


afenterted 


Ss Sie) 


4 wo 


;#FILL READ INTO BUFFER 


RO, J8CLAREA 





~ Ser, oe 
eC ,ae LOISK 


:*THE READ HEADER ANC 


RO, 28RUN 


PC, JaCrECKT 


,CPHALT 


SRRPSVEC 2 


oo 





UE eels ae 


LEAR 260 WORDS 
TORT INS. FROM REINTO 
L aie 128252 
DATA COMMAND IS FILLED 

: STU TO RUN FOR DATA 

cit NDER : 
KO 
‘bes COUNT (DATA) = 
WORDS 
ADDRESS 
ING RODRESS OF CATA 
R = REINT 
T 5a? RODRESS Inc SRENE 


eR ATTEMPTED RESD 
s THE ! 
uae OF REGISTERS 


et DVA, ROY, MOL. DPR. ORY AND WV = 
THAT ALL Sti 3 
oun TESTING ! 








ra. 


WII 


-- 0 <6 + b= po pe 


UNS GT Oh IO ULE GIfue- OC. 00" IU bs 


MIMOOOILICIOCIL ICI ICICI 9 COIS 
GIGIGICIGIGINVUIUTUTU TT ttt ti se 


? 


= ae ee ee OGG 
JCP UN. Gone C0 ~ 3 


VOPVEVIT EV ETU ETT ITS TETSU STEHT ESV CET CEU CEA E LUCE LCFU CTU ET CFU CTTCFVCS CEU CITC SULTS NCIS 


MICA III Oe 


PTATOATEATOATOATORISRTUAT ERICA eal td) 

CO MIIIOIOIC III IOI OA 
CROP CR OR OP Ch OP UCU 
OPN 6. Conde C2. OCO NOU £6 


020320 
020326 


920334 


wiwe 
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ST-PT 2 MAL Ld 
PROR RHERL -BIT #10 
;AND LOOK AHEAD REGISTERS 
;GET READY TO MOVE COMMAND 
:GET READY TO SET GO AND 
sENRGLE INTERRUPT 

;72 IN BHCS1 FOR READ DATA 
sWETH INTERRUPT 


OOOcr- 


:#CHANGE SAVED REGISTERS TO EXPECTED VALUES 


2*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 
JRHCS1 4. CANNOT BE PEREDE TERMINED . 
VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNI? 


;RHWC IS UNPREDICTABLE 


DRHWC , DBSAVERE 
; EXPLAINED ABOVE 


DRHBA, JSSAVERE+2 
DRACS2, DRSAVERE+4 
MRHCS1, JUSAVERE+E 
;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHDS] REGISTER 


32 BIT/BITS TO SE CH 
;NEW VALUE OF ATA IS 


QRHOST, aeSAVERE+L2 SRHOST IS INDETERMINATE SO 


:CHANGE BITS IN SAVED REGISTER 
;CHANGE RHER! REGISTER 
21 817/s,TS TO BE CHANGED 


;NEW VALUE OF IRE IS 1 
;CHANGE IRE SIT 


QBATTENT, d8SAVERE+24 ;SET-REPROPIATE ‘ATA’ BITS 
3FOR WORKING DRIVE IN 








42 


a] 
i7 
Aayey 


cain" 


fats 
3 Dw 


cst) 


-I0owm 


3-9-9" 


OO0G00UC 


“4 


EOVESVCSVU TST STUS TESTU 
MIO UNE Gotu 9.000- 


pe 


= 


aldalisti 
Ul 2 ott 


O00 OCI 


foe -C Ot 


020420 


os0434 


D20436 
C20$8C 


$25 ¥ 


“ii-D2RJF-A, RFOY’S/S FUNCT. 
Pil 


034002 


TST-PT 2 


“INVALIO apoeesé ERROR RHERL -BIT #10 
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;SAVED RHAS LOCATION 


; COMPARE REGISTERS BEFORE ATTEMPTED READ HEADER 
SAND DATA WITH AFTER ATTEMPTED READ 


RO, 2COMREG 


JSR 

3 VER 

Wwe 

18. 

1$ 

2s 
1S: ERROR =S4 

RTS PC 
es: 


ee ee + 


: COMPARE SAVED REGISTERS WITH 
: PRESENT ALUE ~ 
:GO0D ars zave0 IN *SAVERE’ 
TEST, Are rene RTING Ao men 


1$ 0 
RETURN TO 3 3H NO PROF 


ATTEMPTED READ HEADER 

ND DATA WITH INVALI 
ADDRESS CAUSED IMPROPER 
;REGISTER CH 


: SHOU ULD BE THERE 
;RECEIVED DATA GIVES 
REGISTER CONTENTS 
7A FIER ATTEMPTED 


oh ~ 





1 :* " geet -3 RFOS 5 
noRg SA $32 
5093 
5534 
3037 
anes 
5568 
5538 
s:an 
5:0) 
5102 
S103 o2o442 ocooo4 
E10S O20848 21279 
Sids o204s0 812737 
5106 
S10? oe04s& oo4737 
5159 
5108 
6110 
Sill 
S1i2 
S113 
S114 Oe04%62 904037 
Elis Oeosss 62434 
S116 O20470 00269 
| 5137 Oed4r2 125252 
5718 
E175 
5320 
Slel 
Slee o20474 904037 
Si23 G20S500 s00000 
Sie4 929502 624 
cies 520503 559 
fice 20504 177409 
Sie? O20sos 03434 
e- 
eres 
£130 920510 oooc00 
5131 020512 o04000 
bp PO 4 
5133 a 
5134 020514 002346 
3Sics 
| 813e 
| 6137 
| §33¢ 
| £138 o20S1e 004037 
E140 Oe0S22 992172 
| edd Geoee4 00518 
ei4 
| ci43 o20s2¢ o000z2 
| Eide 
: Si4E 020820 004737 


& FUNCT. CONT 


*PNVALIO ADDRESS ERROR “RHERI “BIT #10 


032654 


035152 


033064 
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pERRRAP RARER RARE HEAR ERA RA KEAREE ERE REAREAEEEEE EER EEE EELEEE EAE E ESD 
4) TEST 23 INVALID ADDRESS ERROR - RHER1 (BIT #lQ)IAE 


:* A_READ DATA IS dt ea 10 pect ingen Q, TRACK 0 
:* SECTOR 20 - FORMAT 18 BITS P 

:* INVALID ADDRESS ERROR IRE att 30 IN RHER1 
:* SHOULD SET 


sp RERERERERE LEAR ERE LEAS ELSES ELE REAESEA ELE LER EE RAS AA ARSE E SER ES EEE 
Te3: SCOPE 
MOV aSTACK,SP ;RESET STACK 


MOV #23, a8tSTNM :SAVE TEST NUMBER 
ISR PC, SaCLDISK :SE7 RI-RHCS1, fee RHCS2 
Roe BHOS! 


HER] 
Reta INTTTAC Ize 
asin UNTT NUMBER 


;#FILL READ INTO BUFFER WITH leSeSe 


ISR RO, JeCLAREA :CLEAR 260 WORDS FROM REIN 
RE INTO : STARTING FROM REIN 

260 :2E0 WORDS 

125252 FILL WITH 125252 


;#THE RERD HERDER AND DATA COMMAND IS FILLED 


JSR RO, J8RUN sSETUP TO RUN FOR DATA COMMAND 
5 :CYLINDER 0 
-BYTE 20. “SECTOR eC. 
“BYTE TRACK 0 
-256. :WORD COUNT = 256. 
REINTO :BUS ADDRESS 

:STARTING ADDRESS OF DATA 

:QUFFER = REINTO 
0 :D0 NOT INHIBIT BUS ROQRESS INCREMENT 
ECi 318 BITS PER WORD FORM 

: INHIBIT ECC CORR TN 

;00 NOT INHIBIT HEADER COMPARE 
READAT “GET READY TO DO A READA 

READ pATA WITH 70 IN RKC 


y*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED RERD 
vSR RO, J#SAVER ;SAVE REGISTERS 


ER 
RHWC :RHWC fF THE FIRST REGISTER SAVED 
SAVERE s;STARTING ADDRES OF WHERE 
;THE REGISTERS ARE SAV 
1¢e. NUMBER OF REGISTERS 
: SSAVED = 18. 






JSR PC, J8CHECKT ;CHECKS DVA,RDY,MOL,OPR,ORY AND vv = 1 





:#CHANGE SAVED REGISTERS TO EXPECTED VALUES 


MNDEC=11-D2RJJ-A, REO4/S/G FUNCT. CONT. TST-PT 2 
Dray ya.Pil t23 tNvaLiD ADORESS ERROR - RHER! 
2133 p20534 04400 os&es2 TYPE 
Bit? CedBRC 53085 HALT 
S15] O20842 O13777 OC4SOG 161416 MOV 
5i52 : 
5153 
5154 
3155 
siss 
. 5157 

E153 
Si5$ o20550 O1374 002346 MOV 
Si6¢ 620554 O62718 OOd10! gis 
S153 o20560 012677 161414 MOV 
5163 . 
516% 
Sies | 
S166 
51g? g20564 104412 WAT 
Biss OSctes so2286 RHER} 
S168 G20570 Ooeco0 IAE 
Biv) ODosve ocodce 3. 
5171 oe0s74 socdde 2 
5172 
5173 
5174 
E175 
S17 o20576 OO4027 032674 JSR 
5177 O20e0e d02200 RHCS1 
178 , 
5173 920804 oo0002 2 
5180 Gecsos Ssa00g! 1 
S181 20619 100000 Sc 
S192 Oedel2 00001 1 
Sie3 20614 o49500 TRE 
5183 O20516 O17737 162362 oO4s24 Mov 
PE =| 

| S186 ozoe4 oo4037 032674 JSR 
5157 G25630 S0z222 RHDS! 

| SisS o20632 ono002 2 
5196 O20634 00000) 1 

| §361 820636 100000 ATA 

| 519° O20640 0000] } 

| 5133 d20s42 040008 ERR 
Biss o20644 9040327 032674 ISR 

| 5136 O206s6 Oo0zed2 RHERL 

| 5188 ozcsse gogo 1 

| §is¢ O20654 o0d00! 1 

| §266 o20656 902000 TAE 

| 

j 

| 


EET a 


(BIT #1O)IAE 
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;AND THAT ALL STATUS @ 
, CPHALT igBNNOT CONTINUE TEST. 


DARPYVEC, DRPVEC SET RPOY YECTOR ADDRESS. 
TO ‘TIME’ IF P-CLOCK IS FRESENT _ 
:08 T0,"Timge) TF B-CLOCK 15 NOT THERE 
*TIME’ WILL ONLY SAVE 
‘CURRENT “CYLINDER AGORESS 
;ANO LOOK AHEAD REGISTERS 


ITS _ARE 
NG IF N 


D¥READAT,-(SP) ;GET READY TO MOVE COMMEND 
aGO'IE, (SP) :GET READY TO SET GO AND 
s ENABLE INTERRUPT © 
(SP)+, 2RHCS] 369 WITH 
70 IN RHCS1 FOR READ DATA 
SHITH INTERRUPT ENABLED 


Ten 
BIT IN RHER] REGISTER 
CRO_SECONDS 
BETWEEN 
00 AND 40 MICRO SECONDS 


RO, deCHREG 3 CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


32 BIT/BITS TO BE CHANGED 
:NEW VALUE OF SC IS 1 
;CHANGE SC BIT 

sNEW VALUE OF TRE IS i 


HANGE TRE BIT 
SRHOST, Jesaveresis, sRHDST IS UNPREDICTABLE 


RO, deCHREG ;CHANGE BITS IN PavSD REGISTER 
:CHANGE RHDS1 REGISTE 


ie BIT/BITS TO ata CHANGED 
;NEW VALUE on RTS 1 
* CHANGE ERR BIT 


RO, 38CHREG ome BITS IN SAVED REGISTER 
;CHANGE RHER1 REGISTER 


1 BIT/BITS TO BE CHANGED 
‘ten VALUE OF IRE IS ! 
_ + CHANGE IRE BIT 






sabi 


rye 
aye) 


: 
P30 


forfour 


pb bb COCO OCI 


Me-. 00 IOUS CTU (9.0230 ULE Cote 

© 

wo 
© 
o 
“J 
ys 
1] 
© 
4 

fw 
ul 
ot | 


020666 004037 
92087 Oo4s2 
S207c2 O20710 


020704 10405+ 
020706 008207 


its 4+ 44 44 44 44-4444 4 44 44 44 4b 4 40 44 UVUTUTU 


HOLUFUFFUF Orrin Ufuruturne 


TUTUTI De b—- 0 9+ bp 


wio~jo 
a] 
’ 
=] 
i 
) 


020660 083737 


2o4e44 


034002 


13-DERI I= a hades S/& FUNCT. CONT. TST-PT 2 M 
INVALTO ADDRESS ERROR - RHERI (8 


o04s36 


mh 
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ACYL 
IT slO)IAE 
BIS DBATTENT, ne bak rhe perce tn *ATA’ BITS a 


;SAVED RHAS LOCATION 


7 *COMPORE REGISTERS SEFORE ATTEMPTED READ 
;#DATA WITH AFTER ATTEMPTED READ DATA 


JSR RO, J#COMREG BoC eonT TALE REGISTERS WITH 





ot 
wf 


PRES 
SAVERE :G005 DATA SAVED _IN "SAVERE’ 
Wo ITEST DATA STARTING rele anh 
18. 718. REGISTERS TO Ee COMPARED 
1$ :RETURN TO 1$ ON ERROR 
2$ ;RETURN TO 2 BN NO ERROR 
ERROR 54 ;ATTEMPTED vA 
RTS PC DATA WITH INVALID 
ADDRESS CAUSED IMPROPER 
:REGISTER CHANGE 






;REG ¢ 
SAFTER ATTEMPTED 
: READ 


UTUTUTUTUNUTUTUT 


) fururoronmturontion 
os ( 


020724 


o20730 


020744 
020746 


020760 


+23 


OOOCO4 
012706 
012737 


004737 


904037 


000008 


004037 


000000 





MNDEC<11-D2RJJ-A, RFOY“S/S FUNCT. 


OZRITALP 11 INVALID aooRESS 


032530 


032654 


isi! © 
ERROR - RHER] (BIT #lQ)IAE 


s SHRRA ARAL A SAAR ARAL AKA KE AAA A HKALE RAAF SSSA ALLS SARA EF ELF EASES 
EST 24 ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE iJ 
ia © 


eee eee ee eee eee ee te ee ee Te et 


eH OE I COE 2 CC KOK OC ie eo 
4 


ee esas 


“kd ieeaiieiiitbaiciahainahinicaaiacia alten 


MOV #STACK, SP 
MOV #24, a8 TSTNM 


JSR PC, d8CLDISK 


JSR “RO, J#FLHEAD 


WRF ROM ;LOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 

16000 ;FIRST DATA WORD 

0 ;SECOND DATA WORD 


0 ‘THIRD DATA WORD 


IS 
WRFROM+<4#2> 
256. 
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A WRITE HEADER Wont DATA_COMMAND IS GIVEN FOR CYLINDER 0, TRACK t 
SECTOR O, 256 W r 
NO CHECK IS DONE ROPTER THIS WRITE 


A WRITE HEADER AND DATA COMMAND IS GIVEN FOR 
CYLINDER 410./814., TRACK 18, SECTOR 21, 261 WORDS i 


ADDRESS OVERFLOW ERROR - RHER] BIT#9 (AOE) SHOULD SET 
AFTER SECTOR 21 IS WRITTEN 
ALL REGISTERS ARE CHECKED 


A READ HEADER AND DATA CYLINDER 410./7814., TRACK 18, SECTOR 21, 
260+66+4=330 WORDS IS ISSUED 


SECTOR 21 SHOULD BE READ CORRECTLY BUT NO MORE 
READS SHOULD HAPPEN, AGAIN THE *AOE’ BIT SHOULD SET 


CYLINDER 0, TRACK 0, SECTOR 9 IS READ AND THERE 
SHOULD BE NO CHANGE IN DATA IN THIS SECTOR FROM 
THE LAST WRITE HEADER AND DATA COMMAND 












SCOPE 





;RESET_STACK 
:SAVE TEST NUMBER 


ET Re + ee ot refs RHCS2 


RHD 
GIVE eh INITIALIZE 
igi TE UNIT NUMBER 


;*FILL WRITE FROM BUFFER WITH HEADER 
;SAVE_HEADER DATA IN WRFROM 





















;FOURTH DATA WORD 
;*FILL WRITE FROM BUFFER WITH DATA 


£ fo JSCLAREA ; CLEAR ese alipres FROM WRFROM+<4#2> 
256. WO obne TING FROM WREROM+<42%2> 


sFILL WITH 0 





NNDEC= 11-02 
Pi 


DIRIIA. 


COU OW 00 SIM U1 Gur W000 *- 


ICI CO CI GI CI CIGIGIGIGIGIGIGIG) 


TOTUNOTUN UT ONO UU Unt) 
MUTT bb = 8 0 0 ht 0 


u 
t 
nm 


UV ONUNOTOT Onan 
Lucu Gucaidd GIGd 


920752 
O20766 


os0772 
020774 


020776 
021008 


0210092 


021004 


021010 
021014 


021016 


BS ibsa 


021052 





RIJ-8, QFO4/S 
tay 


peg ? 
COCOCo 
000 
000 
177374 
002370 


009000 
010000 


002344 


004737 


104400 
009000 


0i3777 


013746 
0S2716 


012677 


104412 


004704 


004737 


/& FUNCT. CONT, 
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TST-PT 2 
ADDRESS OVERFLOW ERROR - RHERI (BIT#9) AOE 


024766 


a *T*, 
033064 


OSe662 


CO4S06 


ah 


op2344 


009101 
161140 


033004 


161142 


paths FIRST WRITE OPERATION IS roe 
WRITE HEADER AND DATA 


FILL COMM 
.. , cnnnnehecstRantGeSESSEEEEASERENSERISE SES ST ELEREREEDEEHEESEREEES 


JSR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 


BYTE 0 SECTOR 0 
‘BYTE 0 ; TRACK 0 
~256.-4 SWORD COUNT (DATA) = 256. + 

;4 HEADER WORDS 
WRFROM ;BUS ADDRESS 

iSTERTING ADRESS OF DATA 
0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 


:D0 NOT INHIBIT ECC CORRECTION 
:D0_NOT pee ss COMPARE 


WRIFOR GET READY RIFOR 
:WRITE HEADER AND Dar WITH S2 IN SHCS1 

JSR PC, JCHECKT s CHECKS 0 OVA, 8 ROY, MOL DPR, 0 DRY AND WV = 1 

TYPE — ,CPHALT s CANNOT CONTENGE teeTeNG. IF NOT 

HALT :STOP TEST 


MOV JBRPYVEC AIRPVEC ; sat, a VECTOR ADDRESS 
310 *TIMEL’ IF P-CLOCK IS PRESENT 
:0R TO po mS P-CLOCK IS NOT “THERE 
: * WILL ONLY SAVE 
: CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


MOV DeWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GONIE, (oP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,RHCS1 180. WITH 
IN RHCS1 FOR WRITE HEADER AND DATA 
Agfa INTERRUPT ENABLED 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 :WAIT FOR ane REG! ISTER 
ROY ;WAIT FOR TIN RHCS1 REGISTER 
2500. ;ALLOW 25000 "WICRO SECONDS 
e500. ;RDY MUST SET SETWEEN 
00 AND SO000 MICRO SECONDS 
JSR PC, dsCLOISK RET Ri- sce. A.» ~RHCSe 
; R3-RHDS Ri 


:SETUP UNIT NUMBER 








MNDEC=11-DZRJJ-A, RFOWS/S FUNCT. 


DZRIIA.PL +24 


S34? 921056 905737 
S348 Oe2l0be 901411 


Se 
5353 pte 004037 
Oe 
5360 021104 000410 
S365 921106 BONO? 


ee 
24 990000 
e& 


er 4 


ul 

if) 

y 
forurore 


365125 


021140 005737 


004636 


032635 


032630 


032654 


004636 
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ADDRESS OVERFLOW ERROR - RHER 1 (BtTHS) AOE 





J13 


;*CHECK THE DRIVE TYPE _AND DO THE 
; APPROPRIATE SECOND WRITE OPERATION 


:*FILL WRITE FROM BUFFER WITH HEADER 
pp ERR R RR RRR EE RARER ERK ERAN EA REAR EERE EEE EEERERE RE REELS EEEELE 


ee ae ae ee eee 
TST J#RPOG =; TEST FOR are DRIVE 

15$ ; TREAT Be On An - RPOY 

i cinnananimbamugianeiommarinmaetenesiimmanemnets 


JSR RO, a#F LHEAD ; SAVE HEADER DATA IN WRFROM 
WRF ROM LOCATION WHERE SAVED 


4 :NUMBER OF WORDS SAVED 

11456 et DATA 

(18.4400) !'«21.> SECOND. DATA WORD 

0 “sTHIRD DATA W 

6 ORTH DAT au BORD 

3k 16$ ‘CONTINUE WITH THE SECOND WRITE Y 

{ 

153: 

ISR RO, #FLHEAD :SAVE HEADER DATA IN WRFROM 

WREROM :LOCATION WHERE SAVE 

4 ?NUMBER OF WORDS SAVED 

10632 : eh DATA WOR 

£18. #400 #<21.) » DASB Oe DATA WORD 

0 Pet DATA WORD 
188: ;CONTINUE WRITE 

:#FILL WRITE FROM BUFFER WITH DATA - 65125 

JSR RO, J&CLAREA ;CLEAR 256, WORDS, FROM WREROM+<4*2> 

WRFROM+<4%2> fe’ all STARTING FROM WREROM+<4x2> 

U 
(26. *2000>!<18.*40>!<21.$ sFILL WITH <26.*#2000>!<19. 40>! 


;*CHECK THE DRIVE TYPE AND 
:*FILL WRITE FROM BUFFER WITH APPROPRIATE NEXT HEADER 


;*THIS IS A NON EXISTANT HEADER AND SHOULD NOT. BE WRITTEN 
S*#5INCE AOE’ SHOULD seIS2T THE WRITE OPERATION 


EHS HHHE HEHEHE HEHEHE HHH EGUEGEEEEEES 
TST OeRPO& ;TEST FOR RPOG ORIVE 




















ata bit. ZRIJJ-A, RPOW/S/S FUNCT. CONT. TST-PT 2 MACY11 27(655) 
peRIIALP t24 ADDRESS OVERFLOW ERROR - RHER1 (B1T89) ADE 


5238 021144 o01411 BEQ 17$ s TREAT UNIT AS AN RPOY 
2333 » SHH HEHE HEEB EEHHEEEES Oe ee Soo ESE 
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3397 Oe2ll4s O04037 032630 JSR. RO,Q#FLHEAD =, SAVE HEADER DATA IN WRFROI+<260. 42) 
5398 921152 003400 WRFROM+<260.¥2) LOCATION WHERE SAVED 

5393 021154 900004 - ; NUMBER ie Taos SAVED 

54090 O21158 011457 11457 :FIRST DATA WORD 

5401 021160 900000 0 :SECOND DATA WORD 


S402 Oelise 00900 0 THIRD DATA WORD, 
5404 O2lige O00410 SR «188 SCONTINUE WITH TEST 


S409 021170 004037 032630 JSR RO, J&FLHEAD ;SAVE HEADER baTA IN WRFROM+ «260. #2) 
5410 O21174 o03400 WRFROM+<2E0. #2) ;LOCATION WHERE SAVED 

S411 021176 o90004 4 -NUMBER OF WORDS SAVED 

S4i2 021200 01063 10&33 FIRST DATA WORD - 
S413 O2le02 000000 0 ;SECOND DATA WORD 

S415 921208 oo0000 0 ‘THIRD DATA WORD 

Suis 021206 000900 0 sFou RTH DATA WORD 

S416 021210 193: NUE 

41? :#FILL WRITE FROM BUFFER’ ITH DATA FOR NEXT SECTOR 


S419 G212!0 004037 O32654 JSR _—s- RO, @H#CLAREA ;CLEAR 2 WORDS, FROM LRFROMS «264. x2) 
$420 921214 003410 WRFROM+< 264. #2) RTING FROM WRFROM+<264. #2> 
S421 O21216 oo0002 z ;2 woros*~ 

S422 021220 o66000 (27. #2000) - ;FILL WITH <27.*2000> 














S426 ;*CHECK THE DRIVE TYPE AND.DO THE APPROPRIATE 
S427 FILL WRITE HEADER AND DATA COMMAND 


5430 ‘ UHHH EEE HEHE O HEHEHE EEE EEE EEE 
S431 O2l222 005737 OO4636 TST asRPOE ;TEST FOR RPO& DRIVE 

S432 Geleeé 901412 BEQ 7$ ; TREAT UNIT AS aN RPOY 

5433 : TR REAT UNIT AS AN RPO 

5434 Pritt rir tttr titi tr titi trt iit ttti titre titre titi t ities 


S437 Oele30 04037 034766 JSR RO, J#RUN ;SETUP_TO RUN FOR DATA COMMAND 
S438 Oele34 001456 814. :CYLINDER 914. 
S439 021236 025 BYTE 2}. 3 CTO 


S440 021237 O22 BYTE 18 ; TRACK 18. 

S441 O21e40 177373 -e57.~4 WORD COUNT (DATA) = 257. + 
S442 :4 HEADER WORDS 

S443 Oe2le42 002370 WRF ROM :BUS ADDRESS 

S444 STARTING ADDRESS OF DATA 


:BUFFER = WRFRON 


OZRIJA.Pil 
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tay ADDRESS OVERFLOW ERROR - RHERI (BIT#9) AOE 
921244 099900 9 :D0 NOT INHISIT BUS RODRESS INCREMENT 
S21246 010000 FMT22 48 BITS PER WORD FOR 
T INHIBIT ECC RORRECTION 
| :00_NOT INHIBIT HEADER COMPARE 
921250 oo2344 WRIFOR GET READY TO DO A WRIFOR 
: WRITE HEADER AND DATA WITH 62 IN RHCSI 
021252 900411 BR 8g 
021254 73: 
921254 004037 O34766 JSR RO, J#RUN :SETUP TO RUN FOR DATA COMMAND 
Q21250 300632 4id, :CYLINDER 410. 
021262 025 .BYTE 21. ; SECTOR 21 
621263 O22 “BYTE 18. 18. 
021264 177373 257. -4 :WORD COUNT (DATA) = 257. + 
:4 HEADER WORDS 
921266 002370 WREROM “BUS ADDRESS 
STARLING RDORESS OF DATA 
921270 oo9000 0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
Bele72 610000 FMT22 16 BITS PER WORD FOR 
DO NOT INHIBIT ECC RORRECTION 
e :D0 NOT INHIBIT HEADER COMPARE 
021274 902344 WRIFOR EADY TO DO A WRIFOR 
WRITE HEADER AND DATA WITH 62 IN RHCS! 
021276 8g: 
-xSAVE REGISTERS FOR COMPARISON AFTER WIRTE HEADER AND DATA 
021276 004037 032152 SR RO, a#SAVER 3A VE REGISTERS 
021302 902172 RAW RHWC IS THE FIRST REGISTER SAVED 
021394 oo4s12 SAVERE :STARTING ADDRES OF WHERE 
THE REGISTERS ARE SAVED 
021306 oco0022 18. ; NUMBER OF REGISTERS 
-SAVED = 19. 
021310 004737 033064 ISR PC, 2RCHECKT ; CHECKS DVA.RDY,MOL,DPR,DRY AND VV = 
"AND THAT ALL STATUS BITS ARE = 0 
021214 104400 oses62 TYPE _, CPHALT : CANNOT CONT INGE TESTING IF NOT 
921320 ooocoo HALT :STOP TEST 
021322 013777 OO4SO6 160536 MOY THRPYVEC,IRPVEC ;SET RPO VECTOR ADDRESS 
TO TIME” IF P-CLOCK IS PRESENT 
:OR TO *TIMED’ IF P-CLOCK IS NOT THERE 
:*TIME’ WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 
021330 012746 ofe344 MOV O#URIEOR -(SP) ;GET READY TO MOVE COMMAND 
021334 o52716 od0i0: BIS #GO!TE, (SP) GET READY TO SET GO AND 
;ENABLE INTERRUPT 
021340 012677 160634 MOV (SP)+, IRHCS! 


;GO_WITH 
";62 IN RHCS1 FOR WRITE HEADER AND DATA 















DZRIJA.P 11 


5503 021344 


5507 021384 


SSl2 021356 
$513 0el3be 
021364 


WwIUTUIUT 
NUOlUUn 


021366 
$518 Cel37e 
aed? 921374 


e 
5S2e 021376 
SS2e3 02140e 
SSeS 021404 


5531 021416 
SS32 Oeltee 


5524 Oelse4 


S549 021436 
S54. del44e 
554 Oel444 





SS4S 021446 
S546 9921452 


54g 021454 





S553 Ocl4e6 
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SEG 0167 






;WITH INTERRUPT ENABLED 











104412 WAT ;WAIT FOR ROY BIT TO SET 

OC2ee00 RHCS1 sHAIT FOR RHCS1 REGISTER 

090200 | RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
004704 2500. ; ALLOW 25000 MICRO SECONDS 

004704 2500. ;RDY MUST SET 







BETWEEN 
00 AND 50000 MICRO SECONDS 
;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 











004037 032706 JSR RO, d#F ILLRE ;MOV_WRFROM+<260.*2>+<1.%2> INTO SAVED RHBS 
092174 RHBA SAVED REGISTER TO CHANGE 

003402 WRFROM+< 260. #2>4+<1. #2) ;DATI 

004037 032706 JSR. —s- RO, @#F ILLRE ;MOV_O INTO SAVED RHWC 

Baanog - s SAVED REGISTER TO CHANGE 









004037 033674 JSR RO, J&#CHREG ;CHANGE BITS IN SAVED REGISTER 
002200 RHCS1 - 3 CHANGE RHCS1 REGISTER 











oooo0de é 32 BIT/BITS TO BE_CHANGED 
009091 1 :NEW VALUE OF SC IS 1 
109000 SC CHANGE SC 

000001 1 :NEW VALUE OF TRE IS 1 
040000 TRE ;CHANGE TRE BIT 






004037 033674 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 














000002 e us BIT/BITS TO BE CHANGED 
000001 1 3 NEI ea OF OR IS 1 
000200 OR CHANGE OR BI 

o00001 1 NEW VALUE OF IR IS 1 
000100 IR CHANGE IR BIT 






904037 032706 JSR RO,#FILLRE ©—-«;MOV_AOE INTO SAVED RHERL 
g02202 RHER1 ; SAVED REGISTER TO CHANGE 
901000 AOE : DATA 














004037 933674 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
O0eee22 RHDS1 CHANGE RHDS1 REGISTER 


000603 3 :3 BIT/BITS TO a CHANGED 
OF ATA IS 1 







069001 1 :NEW VALUE OF LBT IS 1 









MNOEC=11-DZRIJ-A 
DZRIJA.Pi1 


021470 
021472 


021540 


021544 
021546 


021550 


021550 


021556 
021562 


21572 


021574 


+24 


062900 
053737 


005737 
O0i411 


004037 


0022! 
00145 


004037 
002234 
OO14SE 


000410 


004037 
002212 
000633 


004037 


002234 


000632 


017737 


004037 
004512 


021600 


104055 


RPOW/S’6 FUNCT. CONT. TST-PT 
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CO4E44 004536 


OO4E36 


032706 


032706 


032706 


032706 


160430 


034002 


9$: 


10$: 


oo4S24 


1$: 


LBT 
BIS 


;*CHECK DEVICE TYPE BEFORE SETTING UP *RHCA’ & 'RHCC’ 


jb 5 PERERA RARER RAE EAE REAAE EE LEK EK EAE AERA AAAS EAE REE SEAS AEA ERLE ES 
TST ; TEST FOR_RPOG DRIVE 


JSR 
RH 


MOV 


JSR 
SAVERE 
ic 


QeATTENT, a i No Bere tn *ATA’ BITS 


a #RPOG 
9S 


RO, d#F ILLRE 


RO, J#F ILLRE 


10$ 


RO, J#F ILLRE 


RO, J#F ILLRE 


@RHDST, J#SAVERE+12 ;RHDST IS UNPREDICTABLE 


;*COMPARE REGISTERS BEFORE WRITE HEADER AND DATA WITH AFTER 
RO, J#COMREG 


$5 
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;CONTINUE WITH TEST 


;CONTINUE WITH TEST 


;WRITING HEADER AND DATA WITH 





SEQ 0168 





;CHANGE L8T SIT “ 






KING DRIVE I 
SAVED RHAS LOCATION 







;MOV 815. INTO SAVED RHCA 
i SAVED REGISTER TO CHANGE 







;MOV_ 814. INTO SAVED RHCC 
s SAVED REGISTER TO CHANGE 















;MOV 411. INTO SAVED RHCA 
sBAVED REGISTER TQ CHANGE - 










;MOV 410. INTO SAVED RHCC 
: SAVED REGISTER TO CHANGE 








fata | wee REGISTERS WITH 
;PRESENT VALUE 
:COOD DATA SAVED IN 'SAVERE’ 
TEST DATA STARTING FROM *RHWC’ 
:18. REGISTERS TO BE COMPARED 
RETURN TO I$ ON ER 
;RETURN TO 2$ ON NO ERROR 
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ce tn a a= tn a ee ee 





Me nr.?? = ob. 
. “8 I” 


NNDEC- 
OCRITA.P 


NUT 
CPT Orrrmrw 


CoTerTra ester eyieye--o--9-~ 


ty 
Oe (0.000 ~ 1 U6 Gotu 09.000~5 


SGIGIMUITD 


acer 


“IU Gs 


CIGIGIGI“ 


REGGAS 


COVEEVTUT TUT OITUT TUT TUTU TCF TCT US TUTTI 


nn 

ih 
SCOUTING 
Uns Gof 


CREO He OC ererar cre 


UCIT OTTO CTUTONT CT ONT GTO OU TUT OTe 


SOP OP a oP OP OP OP OP Uae 
o.000 NOP U1 £ Gofur©.00™) 


CCHS CP OOF OC 


o2.8C0 


72) sc 
ee - we 


TUTTE --e-- 


a ea 
SOUL ruCoorD 


Ji-8, FFO4 5, 


Qno 
Oooo 
Orns 
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;*NOW_PREPARE TO DO A READ HEADER AND DATA 
s*(THE FIRST READ. OPERATION) 


2#CHECK THE DRIVE TYPE AND FILL 
-aWRITE FROM BUFFER WITH APPROPRIATE EXPECTED HEADES 


Slaiabseinidaileieileiletelnehaieilelaieelallehaebaelaiceibeiaeleilaiieleeieidbcheldidehddeide 


JSR PC, dacLOISKk sag! RI-RHCS1, + heeeae 


ne E 
‘SETUP UNIT NUMBER 


s SRSRAASASS LFASSA FERS SRSA LESH AEA SALSA SALAH A FALE LFLEASAF FFF AFFL 


TST BeRPOG ; TEST mm RPO’ DRIVE 
BEQ 198 TREAT UNIT AS _AN RPO4 
TREAT AS AN RPOG 
5 RREREARAEAAEERAA REED SESS EA EEA EREASAEREEEREAESE ES ERES ESSE EEE ESE 
Isr RO, JSF LHEAD :SAVE HEADER DATA IN WRFROM 
WREROM “LOCATION WHERE SAVED 
4 : NUMBER OF aMORDS SAVED 
11456 :FIRST DAT WORD 
(18.4400. '<2L.> ME OND DATA WORD 
0 THIRD DATA WORD 
0 :£ QURTH DATS WORD 
ISR RO, RP LHEAD SAVE HEADER DATA IN WREROM 
WREROM sLOCATION WHERE SAVED 
+ : NUMBER oF atiROS SAVED 
10622 sFIRST DaT 
(18. 4400>!<21.> cone. DATA WORD 
9 : THIRD “ie WORD 
0 FOURTH DATA WORD 
* CONTINUE 


;#FILL WRITE FROM BUFFER WITH EXPECTED DATA 


TSR sR, DECLAREA ©=©= ss; CLEAR 256. WORDS, FROM WRFROM+< 422) 
RF ROMS 42> 2 SASLARTING FROM WREROM#< 442) 
seb. WO 


e56. 
C2. #20000 218. #40>8«21.5 SPILL WITH «26. #2000>2< 18. 24> 2s 


;#FILL WRITE FROM BUFFER WITH 377 FROM WORDS 


mm ee me tr rn re ne 











MNOEC*11-D2RI 7-8, REOSS 
O2RITA.PLL toy 

S671 O21566 S403? 
S$7e Jelé7e 003400 
S673 9eisc4 COCO 
S874 O2isf& O037" 
S675 
S&? 
0 
s67s 
s$7s 521790 004037 
3680 Uel70% SU3434 
S881 Oel70& O004le 
S682 021710 300377 
SE53 
S684 
sees 
S636 O21712 OO4727 
Sse? 
sss 
ss3¢ 
5659 
553] 
S&S 
Se33 
so34 
se3s 
S&éS6 (O2171& 005737 
Ses? O21722 oOo1412 
53s 
S65 
S700 
S701 021724 004037 
S702 021730 d01456 
$703. 021722 25 
S704 Czl733 C22 
S705 021734 177266 
679 
STO? OBITS 003434 
S78 
S703 
S7i0 921749 900000 
S711 Gel?742e 914008 
S712 
S712 
S714 O21744 O02250 
S715 
S7ié 
S717 O21746 oOo0411 
6718 021750 
7:3 
S720 O21750 o04027 
S721 021754 O0de32 
S722 Ocl7se 025 
S723 021787 Cee 
S724 Sei7eo 1772bt 


/& FUNCT. CONT. 


rST- 
“ADDRESS OVERFLOW EPROR = - RHER1 (Brt99) ROE 


032654 


033004 


0O4E2E 


—— ~ 


O34765 


C4765 





> 


pp RARERAARESAAS ESAS SELES EARESE AER EERAR EER ELAR ES ERE REALE ES AE ESSE 
TST 


a ee a ne ee eee. 


REF OR :GET READY TO DO A REFO 
READ HEADER AND DATA WITH 72 IN RHCSL 

s ER 12$ ; CONTINUE 

JSR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 

410, ;CYLINDER 410. 

BYTE 1. SECTOR el. 

BYTE 16. ; K 18. 

-32e6.-4 ; WORD but (DATA) = 




























D14 


CYl1 27¢6S5) 


- T 


30-NAR-76 18:59 PAGE 122 


DeCLAREA 
iAFRON 38S. #2) 


377 


: CLEAR e WORDS FROM WRFROM+< 260. #2) 
& WORDS RTING FROM WREROM+< 260. #2 


ora 377 


;#CLEAR READ INTO BUFFER 


JSR RC, J#CLARES ;CLEAR 266. WORDS, FROM REINTC 
REINTO :STARTING FROM REINTO 

266. ;266. WORDS 

377 sFILL WITH 377 

JSR PC, deCLOISK 


: SET RL-RHCS I fes -RHCS2 
=R3-RHDS! RHER! 
;GIVE SH= tt INITTACIZE 
:SETUP UNIT NUMBER 


;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE 
;#FILL READ HEADER AND DATA COMMAND 


JeRPOE =; TEST FOR RPOS DRIVE 
11§ ; TREAT UNIT AS AN RPOY 
: TREAT UNIT AS AN PCE 


+ SEARESRALAEEARS ERAS EASEERESERAEAEEEAREAE EEE EAEAKEAAEAREES EEREES 


JSR RO, SARUM SETUP TO RUN FOR DATA CommanD 
= s . . 
BYTE 21. :SECTOR 21. 
‘BYTE 18. ;TRACK 18. 
~326.-4 HORD COUNT (DATA) = 326. + 
. ty HEADER WORDS 
REINTC gue ADBRESS 
SSTARTING AGORESS OF DATA 
:BUFFER = REINTO 
;00 NOT INHIBIT SUS ADDRESS INCREMENT 


0 
ECI!FMT2e 316 BITS pee WORD FORMAT | 
INHIBIT ECC CORRES 


TION 
NOT sNHEGI T HEADER COMPARE 



















S750 922010 
5751 O32014 
5752 

S753 02201 
S754 

5755 

5738 

$75? 

§75e 
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DPaITA.P LL $24 ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE 
S725 +4 HEADER WORDS 
73 O2l1762 003434 REINTO *BUS ADDRESS 
ver :STARTING ADDRESS OF DATA 
S72 -QUFFER = REINTO 
758 21764 900000 9 300 NOT INHIBIT BUS ADDRESS HCRENENT 
S730 021766 014000 ECIYEMT22 +16 BITS PER WORD FORMAT 
6731] s INHIBIT ECC CORRECTION 
5733 00 NCT INHIBIT HEADER COMPARE 
S733 021770 002350 REFOR GET READY TO DO @ REFOR = 
5234 !READ HEADER AND DATA WITH 72 IN RHCS! 
E736 021772 123: sCONTINUE WITH TESTING 





14 


004037 033152 jase SAVER ; SAVE eg 
002172 RHWC sRHWC_IS THE FIRST ae SaTER SAVED 
004512 SAVERE s STARTING ADDRES OF 
; THE REGISTERS ARE saves 
000022 18. NUMBER os tenes ERS 


ocu72? 033064 ISR PC, DRCHECKT s CHECKS DVA,RDY MOL DPR,DRY AND WV = 1 
AND THAT ALL StaTUS BItS ARE = | 

1o4400 oSeeé2 TYPE — ,CPHALT SEONNOT. SONTENGE TESTING IF NOT 

669099 HALT :STOP TEST 


013777 OQO4S0E 160142 MOV JBRPYVEC, DRPVEC ger, >a ECTOR ADDRESS 
TIME1’ IF PeCLOCK IS PRESENT \ 
‘0 *TIME2’ IF P-CLOCK IS NOT THERE 
*TIME’ WILL ONLY SAVE 
CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


O13746 002360 MOV OBREFOR,-(SP) ;GET READY TO MOVE ane uN 
052726 000101 BIS aGO'TE, SP) ET READY TO Tr AND 

‘Phage INTERRU 
012677 160140 MOV (SP)+, IRHCS1 :60_ a H 


IN RHCS1 FOR READ DATA 
with INTERRUPT ENABLED 


104412 WAT ;WAIT FOR RDY BIT TO SET 
0C2200 RHCS1 :WAIT FOR RHCS] REGISTER 
090290 RDY ;WAIT FOR ROY BIT IN RHCS1 REGISTER 
001614 908 SALLOW 9080 MICRO SECONDS 
001507 839 ;RDY MUST SET BETWEEN 
3690 AND 17470 MICRO SECONDS 

; #CHANGE SAVED REGISTERS TO EXPECTED VALUES 

004037 032706 JSR RO, J8F ILLRE ;MOV REINTO+<260.#2> INTO SAVED RHSA 


a ee ee eee 

























IO 
furore furofururorore foro fororof 


furur fururururofruns foro 
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S| FUNC . CONT, TST-PT 2 Y11 27(655) 20-NAR-76 18:59 PAGE 125 
+24 ADDRESS OVERFLOW ERROR - RHERI Brea OE 
002174 RHBA " sSAVED REGISTER TO CHANGE 
oo4444 RE INTO+< 260. ¥2> sDATA 
004037 022706 JSR R0, JSF ILLRE “MOV -70. INTO SAVED RHWC 
coeire RHIC | SAVED REGISTER TO CHANGE 
904037 O33674 JSR RO, JaCHREG sCHANGE BITS IN SAVED REGISTER 
602250 RHOS1 :CHANGE RHCS1 REGISTER 
opcoo2 2 ;2 BIT/BITS 10 BE CHANGED 
950001 I =NEW VALUE OF SC IS 1 
100000 Sc ; CHANGE SC 
608691 1 !NEW VALUE OF TRE IS 1 
049080 TRE | :CHANGE TRE BIT 
004027 933674 - ‘JSR RO, 2aCHRES -CHANGE BITS IN SAVED REGISTER 
902222 RHDS1 :CHANGE RHDS1 REGISTER 
900003 3 :3 BIT/BITS TO aot CHANGED 
909091 1 :NEW VALUE OF ATA IS 1 
109900 Ata CHANGE ATA. BIT 
909501 | NEW VALUE OF ERR 1S 1 
050806 ERR CHANGE ERR 
900081 I VALUE OF ar 1S 1 
092500 LT i ARANGE LST BIT 
904027 032706 JSR RO, SUF ILLRE sMOV AOE INTO SAVED RHER! 
502202 RHERI : SAVED REGISTER TO CHANGE 
96100 AOE : DAT 
s#CHECK DRIVE TYPE BEFORE SETTING UP *RHCA’ 

s FEFERLELE ALE LF ELE SL ARAL LA EFL ERS ELL ELETARELAE TLE KRERELETLFLALLLRE 
005737 OO04636 TST SeRPO ; TEST FOR i) DRIVE 
001405 BEG 133 TREAT UNIT AS AN RPOY 

TREAT UNIT AS AN RPCS 

5 RERHEAERE REESE AER EEEEAE SAREE EERE RERE RAR EE AERERAR EERE RA BES EEE ERE 
004937 032706 ISR RO, J#FILLRE ;MOV_815. INTO SAVED RHCA 
Oo2212 © RHCA : SAVED REGISTER TO CHANGE 
601457 15. : DATA 
000404 BR 148 s CONTINUE 

138: 
004037 022706 JSR RO, JUFILLRE sMOV-411. INTO SAVED SHCA 
002212 RHCA : SAVED REGISTER TO CHANGE 
005633 UII. : DATA 
LHS:  sCONTINUE WITH TEST 





me 2 cen ne te eee - 






















dz! ZRIIJA.P 


Ss63 022224 
S865 922234 


5es0 Oeeesé 
Se8e Oceesé 


MNDEC > «pee “A, RPOWS/6 


t24 


053727 


017737 


204037 
po4s12 


522234 


LOYOSS 
po0207 


a 


ae 
70 


RSSsEE 


LO4O05§ 
00207 


004737 








FUNCT. CONT. 


OO4644 O04S36 


s7774 O04Se4 


034002 


035932 


033004 


Tei?) & 
aBoré SS OVERFL OW ERROR - RHER (BtTH3) ADE 


4$; 


e$: 


a ee ee eee 
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1S OBATTENT,@RSAVERES2®4 ;SET APPROPIQTE "ATA’ SIT 

’ T, QNSAVERE #64 A amING BATCe IN : 
SAVED RHAS LOCA Ton 

MOV ” ‘@RHDST, scamamneit” sRHDST IS UNPREDICTABLE 


;*COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 
;*REGISTERS AFTER COMMAND 


ISR RO, JHCOMRES : COMPARE SAVED REGISTERS WITH 
“PRESENT VALUE 
SAVERE :GO0D DAT 4 at IN *SAVERE’ 
WC :TEST DATA STARTING FROM "RHWC’ 
18. :18. REGISTERS TO_BE COMPARED 
3$ “RETURN TO 3$ CN ERROR 
4g !RETURN TO 4$ 5H NO ERROR 
ERROR 55 :READING HEADER AND DATA WITH 
RTS BE SEYSECTED RODRESS Oy ERFLOW 
EO CRUSED IMPROPER 
:REGIST ER 


CHA Noe 
BO08 volt GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER COMMAND 


;*NOW COMPARE THE DATA READ 


. JSR RO, JBCOMPAR :COMPARE TWO BLOCKS OF MEMOR 
WREROM °GC0D DATA STARTS FROM WBFROM 
REINTO :TEST DATA STARTS FROM REINTO 
25 - 266. RDS TO BE CO 
5$ “RETURN TO 5$ 
3 : RETURN TO 6§ ON NO ERROR 
ERROR 56 :DATA READ WITH AN EXPECTED 

be} v 


i ADDRESS OVE OVERFLOW ERROR 
;WORD_NO 1 79 aie “SHOULD 
;WORD NO 261 6 "ee SHCULD 
NOT CHANGE DUE TO THE READ 
JSR PC, deCLOISK + Ri- reg * se eee 


;SETUP UNIT NUMBER 





C22262 


= 


Q2e3l2 


gee?! 
0 


Oosa4s 
022344 


Oeest6 
022350 


Ce2352 






se * erent “A, RFOWS/S FUNCT, CONT. TST-PT 2 
#24 ADDRESS OVERFLOW ERROR - RHER] (BIT#9) AOE 








Googe 





000009 





004037 


60000 








904037 





000377 


004737 








004037 
000000 
000 








000 
177374 
003434 


000009 
014000 


002350 
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:¥NOW PREPARE TO READ CYLINDER 0 SECTOR 0, TRACK 0 
:*70 SEE THAT NOTHING GOT WRITTEN ON THERE’ 


:*WITH THE ADDRESS OVER FLOW QLT SET 


, :dunnanbeeSeuenSEENS SESS 000578599500 0007 FEASTSSOOSHHEEEREEEEDES 
;*FILL WRITE FROM BUFFER WITH EXPECTED HEADER 


;SAVE_HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
; NUMBER OF wer SAVED 


ORD 
FOURTH DATA WORD 


CLEAR 256. nen FROM WRFROM+<4#2> 
:STARTING FROM WRFEROM+<4#2> 


;#FILL READ INTO BUFFER 
; CLEAR eso. ree wae REINTO 


260. ROS 
:FILL ite 377 


RS RI-RHCS1, Re-RHCS2 


R 
Se tie UNIT NUMBER 
;*FILL COMMAND FOR READ HEADER AND DATA 


;SETUP_TO RUN FCR DATA COMMAND 

;CYLINDER 0 

; TRACK O 

; WORD COUNT (DATA) 
EADER WORDS 

‘BU US ADDRESS 

STARTING ontae OF DATA 

D0 NOT s1e S11 Pe ADDRESS ent 


RECT 10N 
NEA t pinigit eesceR COMPARE 
i READ HEADER AND DATA WITH 72 IN RHCS) 








wey “ii 


022366 


Oees7e 
022375 


022400 


Dee406 
O2e412 


022416 


Oget2e 


022434 
022440 
Oe244e 


o22444 


022454 


Oze460 
022462 


Cee464 


| ig DIRII- “A, RPOWS 


+24 


004037 
354815 
oo0021 
004737 


104400 
300980 


013777 


013746 
052716 


012877 f 


104412 


904037 
002i7e 
009000 


004037 
002174 
oos444 


094037 
002204 
000081 


‘6 FUNCT. TST-PT 2 
“ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE 


033152 


033064 
056662 


O04S0& 


002350 
000101 


i57556 


032706 


032706 
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{xSAVE REGISTERS FOR COMPARISON AFTER READ 
ISR RO, J#SAVER SAVE S 
tp WC IS THE FIRST REGISTER SAVED 
Ae pe : STARTING ADDRES OF WHERE 


THE REGISTERS Bee SAVED 
17. :NUGER oF REGISTERS 
JSR PC, RCHECKT ; CHECKS vA, ROY,MOL,OPR,ORY AND VV = 
“OND THAT ALL StaTUS BITS ARE = 9 
TYPE , CPHALT CANNOT CONTINGE TESTING IF NOT 
HALT :STOP TEST 


MOV JRRPYVEC , IRPVEC iSET RPOY VECTOR ADDRESS 
310 *TIMEL’ IF P-CLOCK at RESENT 
3OR TO were wy P-CLOCK 
*TIME’ WILL Y SAVE 
t CURRENT AC INDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV DSREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
BIS aGOITIE, (SP) GET READY TO SET GO AND 
+o ® INTERRUPT 


MOV (SP}+, SRHCS! ;60_i 
72 IN RHCS1 FOR READ DATA 
swiTH INTERRUPT ENABLED 


WAT irs! FOR ROY BIT TO SET 
RHCS1 WAIT FOR RHCS!1 REGISTER 
RDY WAIT FOR RDY SIT IN RHCS1 REGISTER 
2500. ALLOW 25000 ge SECONDS 
e5Co. :RDY MUST SET 
;00 AND SOOO MECRO SECONDS 
; #CHANGE REGISTERS TO EXPECTED VALUE 
JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHWC 
RHC 


SAVED REGISTER TO CHANGE 
:DATA 


JSR RO, J8FILLRE ;MOV_REINTO+<260.%2> INTO SAVED RHBA 
RH : SAVED art § 3 TO. CHANGE 
REINTO+<260. #2> ;DATA 


JSR RO, J#F ILLRE ;MOV_1 INTO SAVED RHDST 
RHDST SHED REGISTER TO CHANGE 


;COMPARE REGISTER BEFORE READ WITH AFTER 














IS NOT THERE 


SDE SIS Se ee ees) eee Pre Cen oii ora 
J14 


i-DZRJJ“A, RPOW/S’G FUNCT. CONT. TST-PT 


MNDEC=1 


ODRIJA.P11 


022464 


55208 


022502 
022594 


022506 
O2eS06 


OeeSee 


Ce2524 
O22526 


022530 


T24 


004037 
004512 


022506 


104931 
900207 


004037 
a) 


nSseac 


104032 
000207 


CYl1 27(655) 


e 
ADDRESS OVERFLOW ERROR - RHER] arte) AOE 


034002 


035932 


4$: 


1$: 


es: 


38: 


JSR RO, J8COMREG 
SAVERE 
W 


;*COMPARE DATA/READ 


JSR RO, J&COMPAR 
WRF ROM 


ERROR 32 
RTS PC 





;"AGE’ OVER FLOWED INTO HERE 


3O-NAR-76 18:59 PAGE 129 


ct Saved REGISTERS WITH 
; PRESENT VALUE 

;GO0D DATA SAVED IN ’SAVERE’ 
:TEST DATA STARTING FROM ’RHWC’ 
117, REGISTERS TO BE COMPARED 
RETURN TO 4$ ON ERROR 
RETURN TO 1 ON NO ERROR 


;READ HEACER AND DATA ON 
R SECT 


:CYLINDER O RO 
:TRACK O AFTER A FORCED 
SADDRESS OVER FLOW ERR 


; OR 
; CAUSED IMPROPER REGISTER 


‘G00 DATA Give? WHAT 
SHOULD BE T 

;RECETVED DATA GIVES WHAT 
;WAS pene AFTER READ 
:HEADER AND DATA 

IF HEADER COMPARE ERROR 
:1S FOUND AN . ie DATA 

s ERROR GIVES T 


R TO 
S CYLINDER 633/14S7 (OCTAL) 
:THEN *AOE’ OVER FLOWED 
; INTO HERE 


:COMPARE TWO BLOCKS OF MEMORY 
;3000 DATA STARTS FROM WRFRON 
: TEST DATA STARTS FROM REINTO 
*260., WORDS TO BE COMPARED 
EON TO 2% ON ERROR 
:RETURN TO 3$ ON NO ERROR 


READ HEADER aND DATA 

"ON CYLINDER O, TRACK O 

sect OR O aETER, A FORCED 
"OOE’ ERR OR CAUSED 


IF FIRST WORD IS 
106337 ‘1149S? (OCTAL) THEN 





SEQ 0177 

































MNDEC=11-D2RJJ-A, RFO4/S/6 FUNCT. CONT. TST-PT 2 MACY11 27(655) 


30-NAR-76 18:59 PAGE 130 
DZRIJA.P11 t24 ADDRESS OVERFLOW ERROR - RHERI (BIT#9) ADE 


SES 0178 


$048 ccs tt ett t titi titre iti tits i titi ttt it titi tit iti siti iii lil ets 
60493 &TEST 25 FORMAT ERROR - RHERI (BIT #4)FMT 


6051 :* AN ATTEMPT WILL BE MADE TO WRITE DATA ON CYLINDER 0 
g052 ; SECTOR O TRACK O WITH 18 BITS PER WORD WHEN THE 

b053 i HEADER HAS 16 BITS PER WORD SET 

e035 i THIS SHOULD GIVE FORMAT ERROR FER SIT #4 IN RHERL 

ou ‘ 

6057 :% THEN THIS SECTOR WILL BE READ_IN THE CORRECT FORMAT 

£058 :* 16 BITS PER WORD TO CHECK THAT NOTHING GOT WRITTEN 

$053 DY Saye alma tanaecenetsern oe passat eee: eum Si hie 
B0b0 922530 900004 tér2s: 

6061 O2e532 O1e70s 001000 Rov STACK, SP ;RESET_STACK 

6965 OQ2e536 Ole737 000025 oo4so4 MOV eS,aatSTNM =; SAVE TEST NUMBER 


6064 Oe2S44 004737 033004 JSR PC, d#CLDISK ta gee 20 aRER RHCS2 


6067 ‘SETUP UNIT NUMBER 


6069 ;*FIRST WRITE HEADER AND DATA CYLINDER QO, TRACK 0, SECTOR 0 
£070 :*¥FILL WRITE FROM BUFFER WITH HEADER 


6071 

6072 OeeSSO 004037 032630 JSR RO, d#F LHEAD : SAVE HEADER DATA iN WRFROM 
6073 O2eSS4 002370 WRFROM ;LOCATION WHERE SAVED 

6074 O2eS5S& 000004 4 :NUMBER OF WORDS SAVED 

6075 225609 010000 10000 FIRST DATA WORD 

6076 Qe25se 900000 0 3 SECOND DATA WORD 

6077 Oe2s64 900000 0 ; THIRD 

ence Oe2566 000000 0 :FOURTH DATA WORD 

6080 ;*FILL WRITE FROM BUFFER WITH DATA 


6082 o22570 o04037 O32654 JSR RO, J#CLAREA CLEAR 256. WORDS, FROM WRFROM+<4#2> 
6983 922574 902400 WREROM+< 4x2) ;STARTING FROM sRFROM+<4#2> 
£084 O22576 900400 ~ 256. 5256. WORDS 

6085 O22600 d00000 p SFILL WITH O 


6088 ;*FILL COMMAND 


6089 

6090 Geeb0e 004037 O34766 JSR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
6091 O2e60& c00000 0 CY LINDER 0 

6092 022610 000 BYTE 0 ;SECTOR O 

6093 Q2e2611 000 -BYTE OQ TRACK 0 

6094 OCeeble 77374 -e56. “4 ;WORD COUNT (DATA) = 256. + 


£095 :4 HEADER WORDS 

£096 022614 002370 WRF ROM :BUS ADDRESS 

6097 :STARTING ADDRESS OF DATA 

epsg ;BUFFER = WR 

£099 o22616 o00000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 


6100 Oeebe9 010000 FMT22 :16 BITS PER WORD FORMAT 













MNDEC-1 
DZRIJA.P1L 


Bids 022622 
o4 





022624 


22630 
022634 


022636 


022644 
022650 


022654 


0¢2670 


022672 


ear ealealsalealealealealealé mi calealesloaleoalcalsalcalsalsalcaltalealsalsslealeslialealealealsal eal ial eal eal sa 
0+ b+ b= b= b= b= 2 #8 b= 2 B= be hs 2 B= be he bb 2 bs 8 0 he 8 hs bo 8 bo 2 bo be b= he 


£WOIWIWWWGIGIG GITUMMMrUl MM lUle b b-+ + 6-8 OOOO 
OWONO VUE WM -OWO IMU £OIV-OWOW IMU WT -OWD~jIO Ul 





ne ea 


tas 


002344 


004737 


104400 
000080 


913777 


013746 
052716 


012677 


104412 


004704 


004737 


033064 
055662 


004506 


002344 
000101 


157320 


033004 


1-DZRJJ-A, RFO4/S/6 FUNCT. CONT. Tl ¢ 
FORMAT ERROR - RHER 1 (BIT #4)FMT 





WRIFOR 


JSR 


TYPE 
HALT 


MOV 
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300 NOT etait ECC CORRECTION 
1 f va | oTeAOe R Tt 


: WRITE wt 38 END DATA’ WITH 2 IN RHCS! 
PC, J#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
ND THAT ALL STATUS BITS ARE = 0 
, CPHALT t CANNOT ConTENLE Teer tnc IF NOT 
STOP TEST 
DRPYVEC,IRPVEC ;SET RPOY VECTOR ADDRESS 


;10 ro ttn IF P=CLOCK Ao © RESENT 


L_ONL 
t CURRENT: CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


JHWRIFOR, - (SP) ;GET READY TO mye ae 
DY TO SET AND 


8GO'TE, (SP) °GET REA 
: ENABLE ONTERRGPT 
(SP) +, 3RHCS1 ;60 WITH 
-62 IN RHCS1 FOR WRITE HEADER AND DATA 
:WITH INTERRUPT ENABLED 


;WAIT FOR RDY BIT TO SET 

:WAIT FOR RHCS1 REGISTER 

:WAIT FOR RDY BIT IN RHCS1 REGISTER 
; SECONDS 


T BETWEEN 
00 AND 50000 MICRO SECONDS 


PC, J#CLDISK ;SET R1-RHCS1, R2-RHCS2 
:R3-RHDS1 HER 1 

GIVE RH-11 INITIALIZE 

‘SETUP UNIT NUMBER 












MNDEC-1i-DZRJJ-A, RFOW/S/6 FUNCT. CONT. PT 2 
FORMAT ERROR - RHER} (BIT #4) FMT 


DZRITA.P11 tes 
6141 
$142 
6143 
6144 
6145 
S148 022676 094027 
6147 022702 902370 
8148 Oe2704 900400 
5149 922706 000377 
6150 
6151 
£152 
6153 
6154 022710 004037 
S155 22714 op0000 
6156 O2e716 690 
6157 022717 _ 000 
6158 Oee720 177400 
6159 Oee7s2 002370 
6160 
S14 eae 
6162 o22724 oopooS 
6163 O22726 990000 
S164 
6165 
S166 ‘022730 oco2342 
£167 
5168 
6169 
6170 
6171 . 
6172 022732 004037 
6173 022736 O0e172 
ate S22740 o04Sie 
6176 Oee74¥2 oo0022 
6177 
£178 
6179 022744 0604737 
6180 
6181 o22750 104400 
bige 022754 990000 
6184 022756 013777 
6185 
6186 
£187 
£188 
6189 
£190 
6191 
6192 022764 013746 
£133 022770 OS52716 


. 


032654 


034766 


03315e 


033054 
056662 


CO4SOE 


002342 
000101 


157202 


MACY11 27(655) 30-NAR-7& 18:59 PAGE 132 - SES 0180 


;*NOW PREPARE TO WRITE WITH WRONG FORMAT 
;*FILL WRITE FROM BUFFER 


ISR RO, JHCLAREA :CLEAR 256. WORDS Fron WRFROM 
ARE OM ; STARTING FROM WRFRO 


377 FILL litTH 377 


;*FILL WRITE DATA COMMAND 


JSR RO, J#RUN ;SETUP_TO RUN FOR DATA COMMAND 
0 ;CYLINDER O 
sprig Q ;SECTOR 0 
BYTE 0 ; TRACK O 
-256. WORD COUNT = 256. 
WRF ROM BUS ADDRES Ss 
s START ING pin hy OF DATA 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
0 ;18 BITS PER WORD FORMAT 
:D0 NOT INHIBIT ECC CORRECTION 
;D0_NOT INHIBIT et COMPARE 
TQ DO A WRIDAT 


WRIDAT GET READY 
: sWRITE DATA WITH 60 IN RHCSI 


Piro Teens Ereand FOR COMPARISON AFTER ATTEMPTED WRITE DATA 


WITH WRONG 
iée RO, J#SA' ER ;SAVE REGISTERS 
RHWC *RHWC IS THE FIRST REGISTER SAVED 
SAVERE ‘STARTING ADDRES OF WHERE 

:THE REGISTERS ARE SAVED 
18. NUMBER OF REGISTERS 

SAV ED = 18. 
ISR PC, DHCHECKT :CHECKS DVA,RDY,MOL,DPR,DRY AND VY = 

AND THAT ALL StaTuS BITS ARE = 0 

TYPE =, CPHALT : CANNOT CONTINGE TeetiNG IF NOT 
HALT STOP TEST 


MOV J#RPYVEC, IRPVEC i$T RPO4Y yerres ADDRESS 
370 *TIME1’ IF P-CLOCK IS PRESENT 
yhs Ms gis IF a TS NOT THERE 
: CURRENT CYLINDER ADDRESS 
AND LOOK RHEAD REGISTERS 


Ov DHWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
Is #G0! TE, ( (SP) ‘GET READY TO SET GO AND 
‘ENABLE INTERRUPT 





MNDEC=11-DZRJJ-A, RPOY/S/6 FUNCT. 
- FORMAT ERROR - RHER] (BIT #4)FMT 


DZRIJA.P11 


022774 


023000 
c 


023020 
023024 
023026 


023030 
023034 
023036 


023040 


O2s04e . 


O2304e 
Oe3046 
023050 


023052 
023056 
023060 
023062 


023062 
023065 


023070 


023100 
023102 


tes 
012677 


104412 


001510 


005737 
001411 


004037 
002172 
177410 


004037 
002174 
002410 


000410 


004037 
002172 
177502 


004037 
002174 
002574 


004037 
002200 


cocade 


040000 
004037 


157200 


004640 


032706 


032706 


032706 


032706 


033674 


033674 


CONT. TST-PT 2 


,*CHANGE SAVED REGISTERS TO_EXPECTED VALUE 
H70 sae CONT 


MOV (SP)+,9RHCS1 
WAT 
RHCS1 
RDY 
§50. 
840. 
tST J#RH 
BEQ 7 
JSR RO, J#F ILLRE 
REWC 
-248. 
ie RO, J#F ILLRE 
WRFROM+<8. #2) 
BR 8s 
73: 
JSR RO, J#F ILLRE 
RHC 
-190. 
tes _ RO, 2#F ILLRE 
NRFROM#<66. ¥2) 
8S: 
JSR RO, J#CHREG 
RHCSi 
2 
1 
sc 
l 
TRE 
JSR RO, J#CHREG 
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MACY11 27(655) 


SEG C181 


a AER BS aad 


;WAIT FOR RDY BIT TO SET 

:WAIT FOR pad REGISTER 

:WAIT FOR RDY BIT IN pe REGISTER - 
ALLOW 8500 oy peed 

;RDY MUST SET BETWEEN 

;100 AND 16900 MICRO SECONDS 


rr 


LER ? 
NOT, SKIP NEXT RH70 CODE 


; MOV -248. INTO SAVED RHWC 
s SAVED REGISTER TO CHANGE 


;MOV_WRFROM+<8.%2> INTO SAVED RHBA 
; SAVED a TO CHANGE 


;SKIP NEXT RH11 CCDE 


;MOV_-190. INTO SAVED RHWC 
: SAVED REGISTER TO CHANGE 


;MOV_WREROM+°66.#2> INTO SAVED RHBA 
: SAVED Reeata TQ CHANGE 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


32 BIT/BITS TO BE_ CHANGED 
ned VALUE OF SC IS 1 


: NEW VALUE OF TRE IS 1 
CHANGE TRE BiT 


;CHANGE BITS IN SAVED REGISTER 





ConlenCententerCenterlerteelests testes 


COCO OO OE CP Cree CE OP Cn rarer: 
AEA CATT AIOAL OAL OAL EAIEA LEAL eA EEE 


cpturtertentes 


48 46 48 48 
u 


f 


sedi -oirtre Eo 
CDM CON Cape CO OO SOTO A Cane 0 pete 


ro 


sorcerer" 


ip j 
NIE 


uo 


PoUr tod 


aan 


Cn ST. 


£00 


SS RRR a 
ative « 
in 


a eT 


ee 


CVC DG Ded Od Oe 


Cr CVC CC 
fue COO ~ 20 


Gouwourn 


“Cons. A, RPDS 6 6 SUN’ Wi. Sir: & - e7: 655) JO-NaR-7& 16:55 PRGE iz 

rt 2s PAG4AT ERRIR - RHER] .SIT g4FMT 

se3i06 021-5 HOSE MANGE RnCSS REGISTER 

983110 90000: | BIT/BI7S TO BE CHANGED 

we cecd eyez 2 . ae a. LF oF of ss 

vesil4 DOVE x MANGE OF BIT 

Se211e DQ4037 23087 ISR -ROQUCHRES = CHANGE EIT. Th GavED_REGISTER 
wes ede welcce AM 26 VMRINGS AMUS6 SEIS | 4 

paige pono z :2 817 S178 10.86 CHANGED 
eSseE2 yxxxxé Lon PME VRE OF 37h GS 2 

sEsesz  aty=nv ¥ ee on ee ve 

vesis4 O40000 Ese ;CHANGE ERR B11 

S23i3G DON037 Csz70s SR ss RO, oa TLLRE sMQV_2 INTO SAVED RHOST 
Desl4¥e O0eed RHOS1 ;SAVED REGISTER TO CHANGE 
Cz3i44 YOUU! ] :DATR 

023146 OS3737 O04644 OO4536 BIS SRATTENT, 285A VERE +24 ;SET APPROPIATE *ATA’ BITS 


WORKING ORIVE IN 
SAVED RHAS LOCATION 
NGE BITS INS ap. REGISTER 


04037 032674 JSR RO, DaCHREG 


“se 


o d022De RHER; ANGE RHER: REGISTER 


GIts 


22 

p23is2 90000) l 1 BIT/BITS TO SE CHANGED 
523184 090093 1 ‘fen VALUE OF FER IS 1 
52316 900320 FER ;CHANGE FER BIT 

Be3170 bl7746 187002 Moy) DRHCS2, -( SP) T RECS 

Sesi74 O42e718 177477 BIC Bro ciRtoRy (SP) :KEEP IR AND OR 

623299 S4e737 009300 co4sis pee 18108, aasAveRees: CLEAR SAVED If OR 

S2320¢ 52637 oo4sis gis ($P}+, daSAVERES4: SET OR IR AS seat teeo 


;#COMPGRE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT 


Oss2i2 04037 34002 7SR RC, aeCOMRES COMPARE SAVED REGISTERS WITH 


‘ BRESENT VALUE 


Ogselé 004512 SAVERE :GO00 DATA SAVED IN ‘SAVERE’ 
Ogdee) Quees4 WC :;TEST DATA STARTING FROM “RHWC’ 
Oesece 0000e2 18. 318. REGIST ER 5 TO oe cOMPARED 
Oese24 Qe3e30 i$ ;RETURN TO 1$ ON 

Oese2e6 Oe3e34 es ;RETURN TO 2$ ON Ro TERROR 


922220 10407 18: ERROR 57 ATTEMPTING TO WRITE DAT 
23222 600207 ATS —s BC tWITH WRONG FORMAT BIT “ses 


; IMPROPER REGISTER CHAN 
#3000 DATA GIVES WHAT SHOULD 


;BE THERE 
RECEIVED DATA GIVES WHAT WAS 





MNDEC-12-D2RI I-A CONT. 'ST-PT 2 
} Ruel (BIT #4)FMT 


rrwrwmoorure: 
C2 ICICICIGIGIGIGIOS 


“e+e -C oC CNC IC sD 


49O00IGIGIGIGIGIOIGIGIGIO) 
FCUDTUITUIT UIT UDO ob = 0-9-0 + 95 


fy 


We 
yt at rt yt at o4 
furufuronotu 


pate tet ey et ey 
~I~I™I~ IIT! 


OO .& 


fororon: 


MOU Gofue-O).000 IOUT bofue 0.000 IO ULE Gitte OO. 000> JOU 6 Gs 


GOGI CU GCI CI CII CI GIO GIO GIGI OIGIGIOS 


we ee GO WU GI GI GIGI GIGI GIGITU TUT 
afore 


VOI 


COOK MO PPO MOM POO OP OOOO OO OP Oe or Oe OF Ora 


t 


COCOA OONON aR , 


GIG) 


@ Wo 


i) 


*) 
At) 
) 
ad 
’ 
qa 


CHOP oP on Chon onc or on 
OPO Gorue- CA OCOSIOHMt 


LOGI CUGIGIGIGIGIGD 


oo a a ee ee eee 
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;THERE AFTER ATTEMPTED WRITE 
ten CORRECT FORMAT TO CHECK 


= 
o~ 
4 
—4o-4 
m4 


ISR PC, aBCLDISK +367 RI-RHCS1, Re-RHCS2 
: Re-BHOs Y“RHER} 
GIVE RH “11 INET Tac 12e 
UMBER 


SETUP | 
;*#FILL WRITE FROM BUFFER WITH eXPECTED DATA 


JSR RO, J8CLAREA CLEAR 256. WORDS, FROM WAFROM 
WRFROM :STA RTING FROM WRFRO 
2Sb. i256 QRDS 

SFILL With 


;#FILL READ INTO SUFFER WITH leS2Se2 


JSR —-RO,DaCLAREA =: CLEAR 256. WORDS, FROM REINTO 
REINTO ; STERTING FROM REINTO 

e5b. :266. WORDS 

125252 SFILC GYTH 12sese 


:#FILL COMMAND TO READ DATA 





JSR RO, D8RUN sSETUP TO RUN FOR DATA COMMAND 
5 -CYLINDER 0 
“BYTE OQ :SECTOR O 
“BYTE 0 “TRACK 0 
256. "WORD COUNT = 256. 
REINTO BUS ADRESS 
:STARTING ADDRESS OF DATA 
iBUFFER = REINTO 
9 :D0 NOT INHIBIT BUS RODRESS IMREMENT 
PMT22!ECI -16 BITS PER WORD FORMAT 
s INHIBIT ECC CORRECTION 5 
309 NOT INHIBIT HEADER COMPARE 
READAT GET READY TO DO A READAT 
READ oava WITH 70 IN RNCS! 
i#SAVE REGISTERS FOR COMPARISON AFTER NORMAL READ 
Ssh RC, aBSAVER 3A E REGISTERS ins aes = 
RHC WO IS THE FIRST REGISTER SSVED 
SAVERE : eee TaRG ADDRES OF WHERE 
: ; THE REGISTERS ARE SAVED : 
18. “NUMBER OF REGISTERS . 
SAVED = 18. & 
ISR PC, JeCHECKT : CHECKS DVA,ROY, MOL DPR,ORY AND VV = 1 
AND THAT ALL StATUS BITS ARE = 0 








MNO EC- ‘ =DoRIJ 


OZRIJA.P 


DIO Oo 


rut cojue-O.o0mM”~ ou 


-~j~ 
om 


10000000000 00 00 Co CoCo Oo COG a 
O0CO™ ICP O11 Gifu CO. WW NO ULE Gotu Cwm 


il 


023340 
023344 


023380 


QOonodooo 
foroforure 
GIGIGIGIGI 
IGIGIGIG) 
aomuwuws 
£00 & 


023406 
Oe stie 
G22414 


Deze 


023440 


“A, RPO 


313746 
0S2716 


012677 


004037 - 
SOer74 . 


06 4434 


004037 
0021 1?e 
BODU0S 


004037 


552637 


004037 


032706 


032706 


156554 


77 
00308 
16 


a) 


004516 


CONT. M 
RROR - BER] sit 84) FMT 


i ee ee eee 
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TYPE .CPHALT 
HALT ;STOP TEST 


MOV © DBRPYVEC ORPVEC ;SET sat yeure ADDRESS 


;CANNOT CONTINUE TESTING IF NOT 





:TO 'TIMEL’ IF P-CLOCK IS PRESENT 


:9R TQ *TIMEe 
*TIME’ WILL ONLY SAVE 
CURRENT AYCINOER ADDRESS 
;RND LOOK AHEAD REGISTERS 


MOV DBREADAT 5 (SF) sGET READY TO MOVE COMMAND 
srs #GOrTE, (SP) -GET READY TO 361 GO AND 
: ENABLE INTERRUPT 
MOV (SP) + ,aRHCS! 69 WIT fa 
IN RHCS1 FOR READ DATA 
ITH INTERRUPT ENABLED 
WAT -WAIT FOR RDY BIT TO SET 
RHCS1 WAIT FOR RHCS1 REGISTER 
RDY ;WAIT FOR ROY BIT IN RHCS 
308. “ALLOW $089 MICRO SECONDS 
$35: ROY MUST 351 BETWEEN - 
2§90 AND 17470 MICRO SECONDS 
s#C'4ANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR «RO, ASFILLRE 


RHEE -SA VED RESIS TER TO CHANGE 
REINTO+< 256. #2> “DATA 

JSR RO, JaFILLRE -MOV 0 INTO SAVED RHWC 
RuWe -SAVED REGISTER TO CHANGE 
0 sDATR 

JSR RO, JaFILLRE :MOV_1 INTO SAVED RHDST 
RHCST i S6VED REGISTER TO CHANGE 
MOY RHC $2, = SP a PHCS2 

arc se) “KEEP IR AND OR 

BIC a8! se  ohveReed -ClEAR SAVED IR OR 

srs (§P)+, JeSAVERES4: SET OR IR AS REGUIRED 


;*COMPARE REGISTERS SEFORE READ WITH AFTER 


JSR RO, d8COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 





MOV _REINTO+<258.#2> INTO SAVED 


‘ 


~ 


6 





< ‘< P-CLOCK 15 NOT THEFE 


- 








MNDEC}11-D2 


ODRIJA.PLL 


cra 


rrwu" 
Be See eee oe oe 


eed ee eee ee eee 


MP ULE GIT (9.000 JOU Gatti 


w 
ao 
jw 


OOOO oO 
furofororore fis 
WWW GG) 


JI-A,_RFOY S_& FUNCT. 2 
cSquar ERROR = RYERI BIT aM )FMT 


$25 


004037 
0 


194034 
600207 


TST-PT 


38: 


4$: 


es 


ere 
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SHVERE ;G00D DFTA SOVED IN ‘SAVER j- 
WC sTEST.D DA arene tag FROM * RH 
18. EGISTER GE COMPARED 
3$ ;RETURN TO 33 ON ERROR 

4$ RETURN TO 4$ ON NO ERROR 
ERROR 33 ;READ DATA tte AN 

RT PC saTTEME TED WRITE WITH WRONG 


; IMPROPER REGISTER CHANGE 
:FORMAT CAUSED 
60 00 pate GIVES WHAT SHOULD 


H 
SRECEIVED DATA GIVES WHAT 
:WAS THERE AFTER READ 


;*COMPARE DATS Bee AFTER ATTEMPTED WRITE WITH 
;*WRONG FORMAT BIT 


ISR RO, S#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 

WREROM :GCO0D DATA STARTS FROM WREROM 

REINTO :TEST DATA STARTS FROM REINTO 
5 -256,, WORDS TO BE CO 

4 ; RETURN TO 5$ ON ER 

3 :RETURN TO &$ ON NO ERROR 

ERROR 34 para READ AFTER AN ATTEMPT 

RTS Pc 5 WRITE WITH WRONG FORMAT 

‘UaS INCORRECT 











DZRITA.PLL 























S455 

6465 OesSeh 

6467 023530 

S468 U22S3e 
023534 







477 
E478 
E473 
E482 Q2355 
e483 022554 
e484 O2355¢ 
e485 022557 
g4se Oes6 
S487 023562 
S486 
E489 


| 6420 
ip E481 

gugs Sco 
| 6494 029570 
| 
| 
| 


Di csenchadeteibitpracieniaais 


tag 


000304 
Jl2e706 


Ole73? 


004737 


004037 


10707 


wl ww! 


004037 


107070 


004037 
000080 
00 


O0z234e 


MNDEC<12-DERJJ-A, RFOWS/6 FUNCT 
FORMAT ERROR = RHER] (BIT #4)FMT 


001900 
000026 


033004 


032654 


032654 


034766 














Fl 


TST-PT 2 MACY11 27(655) 30-MAR-76 18:59 PAGE 138 


fy RESALES RRA HRA KAS RELA ALAS SLA AEA SELL SA LASALLE AFELAAERAFL SSA FLELFSLALS 


;*TEST 26 FORMAT ERROR - RHER] (BIT #4)FMT 
;% AN ated IS MADE TO READ DATA WITH WRONG 
7* FORMAT BIT 

:* 

.% FORMAT ERROR SIT #4 IN RHER1 SHOULD SET 

fe NO DATA SHOULD BE READ 


+ RLLARARA AERA ERSH ELS AE FRESE ARES HELE LESSEE EREL ALLE ASF EAALSERS ES 
T OPE 


$i 26: $c 
MOV #STACK, SP sRESET STACK 
MOV #26, a8TSTNM :SAVE TEST NUMBER 
ISR PC, J#CLDISK ‘= R1-RHCS1, Fe- RHCS2 
sGIV a 


;SETUP UNIT NUMBER 
;#FILL WRITE FROM BUFFER WITH 107070 


JSR RO, J#CLAREA ;CLEAR 256. WORDS, FROM WRFROM 
WRFROM :SIORTING EROM WR WRF ROM 


2S. 5e0 
107070 FILL WITH 107070 






;*FILL READ INTO BUFFER WITH 107070 












ISR RO, JHCLAREA SCLEAR 256. WORDS, FROM REINTO 2 
REINTO :SIBRTING F FROM RetnTs 
107070 tFTL WITH 107070 


;#FILL COMMAND TO READ WITH WRONG FORMAT. 


JSR RO, J8RUN sSETUP 10 BUN FOR DATA COMMAND 
"BYTE 0 EEF TOR 0 

‘ivan 0: > STRACK O 

=256. : WORD COUNT. = 256. 

REINTO : BUS 


ADDRESS 
yan BGORESS OF DATA 


REIN 
5 709 Nor INHIBIT BUS aOoRESS INCREMENT 
ECI :19 BITS PER WORD FORMA 
, tN HIST ECC CORRECTION 
oe :60 NOT INHIBIT HERDER SONPARE 
READAT RET Rea DY TO DO A READ 
: READ ota WITH 70 IN RHCS1 


;#SAVE REGISTERS FOR COMPARAISON AFTER READ 









word 
CHOTare 
anon 
meO 


D23t0e 


023604 


23610 
023614 


023818 


023624 
0e3636 


023634 


023640 


023650 ° 


023652 
023656 


J23669 


Bssere 


02367e 
023676 


023700 


t2g 


004037 
21? 


ey 
o00022 


004737 


194400 
000060 


013777 


013746 
052716 


012677 


004037 
002200 


000002 
000001 
100000 
000091 
040000 


004037 
602222 


000002 


605001 


033152 


033064 
OS&&62 


004506 


002346 
000101 


158340 


033674 


033674 


JI-A, RPOW/S/6 FUNCT. CONT 


156342 


~ . TST-PT 
FORMAT ERROR - RHER] (BIT #4)FMT 





2 
JSR 
RHC 
SAVERE 
18. 


JSR 


TYPE 
HALT 


MOV 





RO, J#SAVER 


PC, daCHECKT 
, CPHALT 


JBRPYVEC ARPVEC ; 


DeREADAT, - (SP) 
gGO'IE, (SP) 


(SP)+, JRHCS1 


MACY11 27(655) 
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SAVE REGISTER 


Ws Fe af eTasr Re REGISTER SAVED 
at TING ADDRES HERE 


; THE REGISTERS ARE SAVED 
Dr a ve tgesohdagt> 


sCHECKS DVA,RDY,MOL ,OPR,DRY AND vv = [ 
°AND THAT ALL STATUS SITS ARE = 9 
CeOT CONTIN TFETiNG IF NOT 


;SET RPOY VECTOR AODRESS 

;TQ 'TIME1’ IF P-CLOCK IS PRESENT 

08 a uht ns IF - yp Ock IS NOT THERE 
; CURRENT eVLINOER ADDRESS 

AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
:GET READY TO SET GO AND 
sBNABLE INTERRUPT 


WITH 
:70 IN RHCS1 FOR READ DATA 
hiITH INTERRUPT ENABLED 


OR RDY BIT TO SET 

OR RHCSi REGISTER 

QR ROY BIT IN RHCS1 REGISTER 
ACL W 8500 MICRO SECONDS 

'RDY MUST SET BETWEEN 

;100 AND 16900 MICRO SECONDS 


nn 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR 
RHCS1 


RO, J8CHREG 


RO, d8CHREG 





;CHANGE SITS IN SAVED REGISTER 
;CHANGE RHCS1 REGISTER 


32 BIT/BITS TO ee CHANGED 

i NEW VALUE OF Sv Is 1 
CHANGE SC BIT 

‘NEW VALUE OF TRE IS 

;CHANGE TRE BIT 


;CHANGE BITS IN SAVED REGISTER 
: CHANGE RHOS1 REGISTER 


32 BIT/BITS TO afe CHANGED 
: NEW vos 1 <. RIS 2 
;CHANGE ATA BIT 

: NEW VALUE OF ERR [S 1 











MNOEC = os RFO4/S/6 FUNCT. CONT. Te 
Dz FORMAT ERROR - RHERI (BIT #4)FMT 


RIJA.P tee 
6553 023710 o40000 
6554 

€S55 Oe37le 90403" 
6555 Ucsrlb OU2e 
6557 Oe3720 55591 
§559 

6559 4 
8560 023722 004037 
8561 O2372e6 d0220e 
&5$2 

8$$3 023730 000001 
6564 023732 00001 
Pere 023734 900020 
sé 

6587? 023738 053737 
&S68 

SSeS 
8570 Oes744 17746 
6571 053750 042716 
6572 023754 042737 
6573 023762 052637 
E574 
ES? 

6575 

b577 

£378 

6579 023766 004037 
6580 
6581 023772 004512 
6582 623774 02254 
6583 Oe377— 000022 
6584 024000 Oe4004 
6585 024002 024010 
6596 

6587 

598 024004 104057 
6585 024906 000c07 
6590 

6551 

6532 

6533 

6554 

6595 

e596 

6597 924010 

6596 

6599 024010 004037 
6600 O2401% 002370 
6601 QO2401§ 003434 
60e 024020 000400 
6603 QOex0ee Oe4026 

Oe4024 024032 


ae ee ee ee +e 


fu 


15 
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ERR ;CHANGE ERR SIT 

JSR RO, J#FILLRE ;MOV_1 INTO SAVED RHOST 

RHDST SAVED REGISTER TO CHANGE 

JSR RO, J8CHREG ;CHANGE SITS IN SAVED REGISTER 
RHER1 :CHANGE RHER1 REGISTER 

1 3d BIT/SITS TO BE CHANGED 

l sNEW VALUE OF FER IS 1 

FER ;CHANGE FER BIT 


BIS DRATTENT, SRSAVERE +24 ;SET APPROPIATE ‘ATA’ BITS 
5R WORKING DRIVE IN 
; SAVED RHAS LOCATION 
aRHCS2, -( SP) 


tCCTRIOR> (SP) ET TE END OR 
sIR!OR SesAveRe+d “CLEAR SAVED IR OR 
(SPi+, SSSAVERE+4:SET OR IR AS REQUIRED 


41> 40-40 
> KOU a 

m 

ae 


Wom 


;*COMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT 


ISR RO, deCOMREG : COMPARE Save REGISTERS WITH 
SAVERE 'G000 DATA SAVED IN 'SAVERE’ 

We :TEST DATA STARTING FROM “RHWC’ 
19. 218. REGISTERS TO BE COMPARED 
1$ :RETURN TO 1$ ON ERROR 

23 :RETURN TO 2$ ON NO ERROR 
ERROR 57 ;ATTEMPTING To af 80 DATA 

RTS Po WITH WRONG FORMAT gr CAUSED 


i THPROPER REGIST ER CHAN 
GOOD DATA GIVES WHAT SHOULD BSE 


THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
:AFTER READ DATA 


;*COMPARE READ INTO BUFFER TO CHECK THAT NOTHING WAS READ 


ISR RO, JHCOMPAR COMPARE TWO BLOCKS OF MEMORY 
WRFROM 00D DATA STARTS FROM WREROM 
REINTO !TEST DATA STARTS FROM REINTO 
256. :255., WORDS TO BE COMPARED 
33 ‘RETURN TO 3% ON ERROR 


;RETURN TO 4$ ON NO ERROR 





4$ 


















11S. 


nNDE C= stir spakas- “A, RPOW/S/S FUNCT. CONT. TST-PT 2 MACYLL 27(655) 30-NAR-76 18:59 PAGE 141 SEG 0189 
ZRITA t2g FORMAT ERROR - RHERI] (BIT #4)FMT 
S607 024026 104034 38: ERROR 34 sATTEMPT TO READ 
p08 024030 o00207 RTS Pc ‘WITH WRONG FORMAT SIT 
; CHANGED READ INTO BUFFER 
6519 :GO0D DATA GIVES WHAT SHOULD 
$611 :BE THERE 
5512 "BAD DATA GIVES WHAT WAS 
$13 “THERE AFTER READ DATA 
5614 
S615 024032 43: 
sis 
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. SEG 0190 
DZRIJA.P12 tag FORMAT ERROR ~'RHER] (BIT a4)FMT 





6618 pp RRR R RRR AR RARER AAR EER RK REAR AER EERIE IEEE EEE EIRP IED 
6619 ;*TEST 27 REGISTER MODIFICATION REFUSED - RHERI(BIT #2),RMR 












6&2 
6621 :* CYLINDER! TRACK 0, SECTOR O WILL BE WRITTEN WITH 
Spee = 200 WORDS OF 2000 BY A WRITE HEADER AND DATA COMMAND 
epse :¢ THE HEADS WILL BE BROUGHT TO CYLINDER O BY A SEEK 

r+) ‘ 
6626 :% A READ DATA COMMAND WILL BE GIVEN TO GYLINOER 1 TRACK 0 
6$e7 :* SECTOR O 150. WORDS. THIS WILL ga a 
£628 7% LEAST 7 MicT SECONDS. IMMEDIATELY AFTER GO AT 
6629 :% IMPLIED SEEK TIME wie INTO A REGISTER WILL BE ATTMEFPTED 
£630 3% THEN READY WILL BE WAITED ON TO COMPLETE THE READ DATA 
6631 7% THEN ALL REGISTERS WILL BE COMPARED AND THE DATA READ 
6632 ;% SHOULD BE GOOD 
6633 se THIS WILL - REPERTED FOR RHCS1, RHER1, RHDST, RHER2 
E634 7% RHOF, RHCA, RHERS 








6626 © SLEFESRES LA HLS FSRKL ERE RFELARFSREL RELEASE KE FRESE AAF REEFS SRS SE SESE 
6637 924032 900004 +$T27: SCOPE 

$638 024034 012708 o01000 MOV RSTACK,SP .  ;RESET STACK 

633 o24040 012737 000027 oo4so4 MOV #27, J#TSTNM ‘SAVE TEST NUMBER 

S641 O24O46 004737 033004 ISR PC,aaCLDISK . :SET R1-RHCS1, R2-RHCS2 










6645 024052 012737 002200 o04650 MOV #RHCS1, dsTMPO {FIRST REGISTER TO BE TESTED 

eras O24060 012737 000007 OO46S6 MOV 87, JRTMPS ;NUMBER OF REGISTERS TO BE TESTED 

6648 ;*PREPARE TO WRITE HEADER AND DATA CYLINDER 1, TRACK OQ, SECTOR O 
ath] :*FILL WRITE FROM BUFFER WITH HEADER 







6651 Oe40b5 STee: 






S653 oO24065 004727 oO33004 JSR PC, #CLDISK :SET R RHCS1 Re-RHCS2 
B54 sRS-RHOS RY-RHER1 
gsss :GIV ety INITIALIZE 
5656 asi UNIT NUMBER 







6658 24072 004037 932630 JSR RO, d#F LHEAD i SAVE HEADER DATA IN WRFROM 
6659 024076 002370 WRF ROM LOCATION WHERE SAVED 

6650 024100 000004 4 RUNBER OF WORDS SAVED 

6661 De410e 010001 10001 FIRST DATA WORD 

6662 Ce4104 00000 0 3 SECOND DATA WORD 

6663 e4106 J00000 0 ;THIRD DATA WORD 

Pree Oe4i10 000000 0 FOURTH DATA WORD 

6655 ;*FILL WRITE FROM BUFFER WITH DATA 






6668 Of4¥l12 004037 O22654 JSR RO, J#CLAREA :CLEAR 256. ORS, FROM WREROM+<4%2> 
6669 O2411E 902400 WRFROM+<4*2> “STARTING FROM WRFROM+<4¥2> 
6670 O24120 909400 256. :256. WORDS 


_—_———— ee nee Se ~- - -_- — - mee me en ee (ee eee ee ee nn nen oe ee SS ss S\9X_ ee ee ne se 
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ZRIJA.P11 t2? REGISTER MODIFICATION REFUSED - RHERI(BIT #2), RMR 
6§71 Oe4ie2 002000 2U00 ;FILL WITH 2900 





pPsa :¥FILL COMMAND 

6675 924124 O04037 034765 ISR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
5676 024130 090001 1 -CYLINDER 1 

6677 024132 990 -BYTE QO ;SECTOR 0 

6678 024133 000 .BYTE Q - TRACK O 

$679 024134 177464 -200.-4 * WORD COUNT (DATA) = 200. + 
5680 *4 HEADER WORDS 

6681 024136 00237 WRFROM :BUS ADDRESS 

6g2 “STARTING ADDRESS OF DATA 

5583 :BUFFER = WR 


6684 924140 000000 y :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
6685 Oe4l4e 010000 FMTe2 :16 BITS PER WORD FORMAT 

6686 ;D0 NOT INHIBIT ECC CORRECTION 

6687 :D0_NOT get a re COMPARE 

6688 024144 002344 WRIFOR EADY DO _A WRIFOR 

£689 ;WRITE HEADER AND batA WITH 62 IN RHCS1 


663e 024146 004737 033064 JSR PC, ¥CHECKT ==»; CHECKS DVA,RDY, MOL DPR, DRY AND VV = 1 
6693 : SAND THAT ALL STATUS BITS ARE = 0 
6694 24152 104400 OS6662 TYPE —,CPHALT $ CANNOT CONTINUE TESTING IF NOT 

6695 024156 oo0000 HALT TOP TEST 


6697 024180 013777 004506 156000 MOV DSRPYVEC,AIRPVEC ; imat RPOY VECTOR ADDRESS 

6698 TO ’TIME1’ IF P-CLOCK IS PRESENT 

6699 OR TO *TIME2’ IF P-CLOCK IS NOT THERE 
6700 ;’ TIME’ WILL ONLY SAVE 

6701 :CURRENT CYLINDER ADDRESS 


6702 AND LOOK AHEAD REGISTERS 


6705 O2416& O13746 002344 Noy GRUIRTEOR,=(SP) GET READY TO MOVE COMMAND 

6795 O24172 OS2716 o0dio1 BIS , (SP) :GET READY TO SET GO AND 

£707 ‘ ENABLE INTERRUPT 

£708 24176 O12677 155776 Mov (SP)+, RACE! G0 UTiH 

£703 IN RHCS1 FOR WRITE HEADER AND DATA 
710 : shit INTERRUPT ENABLED 

g712 ;*TIME IS NOT IMPORTANT 


6714 Oe4e02 104412 WAT ;WAIT FOR RDY BIT TO SET 

6715 Oe4e04 002200 RHCS1 ;WAIT FOR at REGISTER 

6716 O24e06 900200 RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
6717 Qe4e10 004704 2500. 3 ALLOW 25000 MICRO SECONDS 

6718 Oek2le 004704 e500. ;RDY MUST SET BET 

£719 : :00 AND SO000 MICRO SECONDS 


672! ;*NOW BRING THE HEADS TO CYLINDER 0 


| €733 oe4214 004737 933064 JSR PC, J#CHECKT :CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
AND THAT ALL STATUS BITS ARE = 0 
L 


Disain-ipitsinaiaencemmneninsnaseriniinee = _ . a 

































ae RFOY- se. FUNCT. CONT. TST-PT 2 MACYLL 27(655) 30-NAR-76 18:59 PAGE 144 SES 0192 
DZRIJA.P t2? GISTER MODIFICATION REFUSED - RHERI(BIT #2) ,RMR 

6725 Oe42e0 104400 056662 TYPE . CPHALT ;CANNOT CONTINUE TESTING IF NOT 

6726 Oe4224 000000 HALT ;STOP TEST 


6723 Oe4¥2e6 004037 032754 JSR RO, J#SEEKCY ; SEEK FOR 
6739 O2@423e 00000 0 CYLINDER 


6733 024234 913777 OO4SOB 155724 MOV DBRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 


6734 s1O *TIMEL’ IF P-CLOCK IS PRESENT _ 
$735 39R TQ *TIME2’ IF P-CLOCK IS NOT THERE 
£736 ;* TIME’ WILL ONLY SAVE 

$737 : CURRENT CYLINDER ADDRESS 

6738 SAND LOOK AHEAD REGISTERS 


B74] Oe4e42 013746 O02352 MOV  QRSEECOM,-(SP) GET READY TO MOVE COMMAND 
742 Oeve¥e 052716 000101 BIS aGOITE,(SP) =; GET_READY TO SET GO AND 
6743 sENABLE INTERRUPT 

744 OeveS2 012677 155722 MOV —- (SP)+, RHCS1 $69 WITH 

6745 IN RHCSi FOR SEEK 

brag slitTH INTERRUPT ENBELED 


6749 O24256 104412 WAT ;WAIT FOR DRY BIT TO SET 

6750 O24e60 O0e22e RHDS1 sHATT FOR RHDS1 REGISTER 

675i Oek%ese 000200 DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
6752 O24e64 902776 1534. ;ALLOW 15340 MICRO SECONDS 

6753 O24266 001502 834. DRY MUST SET BETWEEN 

6754 ;7000 AND 23680 MICRO SECONDS 


6756 ;*PREPARE FOR A READ DATA 
6758 ;*FILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ 


6759 
6750 024270 004037 032654 JSR RO, J#CLAREA :CLEAR 150. WORDS FROM WRFROM 
$761 O24274 002370 WRF ROM ‘STARTING FROM WRERO 

E762 Oe4S76 O0fe26 150. 

E763 O2e4200 Od02d00 2000 PPTL WITH 2000 


6766 O24202 004037 032654 JSR RO. JHCLAREA :CLEAR 108. WORDS, FROM WRFROM+<150.*2> 
6767 624208 903044 WRFROM+< 150. #2> -STARTING FROM WRFROM+< 150. #2> 
6768 O24310 o00ise 106. :106. WORDS 

6769 624312 600077 77 FILL WITH 77 


6772 _ *FILL READ INTO BUFFER WITH DATA OTHER THAN WHAT IS EXPECTED 





6774 024314 004037 O3e6S4 JSR RO, J#CLAREA ;CLEAR 256. WORDS, FROM REINTO 
6775 Oe4320 003434 REINTO STARTING FROM RELNTO 

6776 Oek3ee 000400 256. i266 WOR “on 

£777 O243e4% 000077 77 FILL WITH 7 
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zRIJA.P LI te?” “REGISTER MODIFICATION REFUSED - RHERI(BIT #2),RNR 
6773 ;*FILL READ DATA COMMAND 
p81 924326 004 i 034766 JSR RO, #RUN ;SETUP TO RUN FOR LATA COMMAND 
pree Oe¥zze 000 1 :CYLINDER 1 
e783 024 BYTE 0 ;SECTOR O 
Bei Deuaas % Boe ‘BYTE 0 ; TRACK 
6785 024336 177552 ~150. SWORD COUNT = 150. 
6786 024340 aga38 REINTO :BUS ADDRESS 
5787 :STARTING ADDRESS OF DATA 
6783 :BUFFER = REINTO 


6789 924342 oo0000 0 D0 NOT INHIBIT BUS ADDRESS INCREMENT 
796 624344 314900 ECI!FMT22 -16 BITS PER WORD FORMA 

6791 j INHIBIT ECC CORRECTION 

&792 :00 NOT INHIBIT HEADER COMPARE 

6793 024346 O02346 READAT GET READY Q A READAT 

5794 : READ pATA WITH 70 IN RHCS1 


6797 ;*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE 
6798 ‘*INTO A REGISTER WHILE THE READ IS GOING ON 

6799 024350 004037 033152 ISR RO, J#SAVER ;SAVE REGISTERS 

6800 024354 O0217e RHWC ;RHWC IS THE FIRST eSaren SAVED 
680i Oe4356 O04Sle SAVERE SPT OR TENG ADDRES OF WHERE 


6893 024360 000022 18. ;NUNBER o SEES 
:SAVED = 


6805 O2436e 004737 933064 JSR PC, J#CHECKT yt es DVA,RDY,MOL,DPR,DRY AND VV = 1 


£807 : “AND THAT ALL STATUS BITS ARE = 
6808 O24366 104400 os6662 TYPE _ , CPHALT ICANNOT CONTINUE TESTING IF NOT 
6809 Ge4372 doco0c0 HALT :STOP TEST 


6810 

6812 024374 013777 OO4SO& 155564 MOV D#RPYVEC ,AIRPVEC ; iat RPOY VECTCR ADDRESS 

68le TO ree IF ee IS PRESENT 

6813 sOR TO *TIME2’ IF P-CLOCK IS NOT THERE 
6814 Oem? WILL ONLY SAVE 

6815 ‘CURRENT CYLINDER ADDRESS 


&8i6 AND LOOK AHEAD REGISTERS 


6819 C2442 913746 o02346 MOV Q#READAT,-(SP) ;GET READY TO MOVE COMMAND 
6820 oes40s o52716 o00101 BIS RGO'TIE, (SP) “GET READY TO SET GO AND 

6821 jENABLE INTERRUPT 

6822 O24412 012677 155562 MOV (SP)+, IRHCS1 369 

£823 o'IN” RHCS1 FOR READ pata 
bee site INTERRUPT ENABLED 

6826 O24416 013700 oo46S0 MOV J¥TMPO, RO :SET UP RO FOR WRITE 
6827 Oe4422 Ole7z1 o02006 MOV #BIT1'BIT2!BIT10,a(RO)+ ; sATTEMPT TO WRITE INTO 
£828 ‘ REGISTERS DURING IMPLIED SEEX 
823 024426 010037 oDo4eso . MOV RO, J#TMPO cA VE OFF RO 

£831 1#NOH RMR IS SET BUT THE COMPLETION OF READ MUST BE 


*WAITED ON 





Or -1 " nein 
DZRIJA.PL1 


oe444y 
024450 


024452 
024454 
O244S6 


o24460 
O24464 


O24466 
024470 
024472 


024474 


024504 
024510 


024512 


024522 


924524 


024532 
024536 


024540 
024542 
024544 


O24S46 
024552 
024554 


ta7 


104412 


002237 


904937 
002234 


000001 
000001 
000001 


004037 
002200 


000001 


304037 
002204 
000001 


004037 
0022ee2 
000002 


040000 
053737 


004037 
002202 


000001 
000001 
000004 


004037 
002174 
004110 


033874 


333674 


032706 


032674 


OO4S44 


033674 


032706 


004536 


RFO4/S/G FUNCT. CONT. TST-PT 2 MACYL1 271655) 30-NAR-76 18:59 PAGE 146 ' SEQ 0194 
REGISTER NODIF CATION REFUSED - RHERI(BIT #2) ,RMR 


RHCSI iNET EOE RECS] REGISTER 

BBY Hat FOR R Yart fir RHCS1 REGISTER 
1183. FALL OW 11990 “WICRO SECONDS 

1183. :ROY MUST SET BET 


WEEN 
:00 AND 23660 MICRO SECONDS 
; *CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCC ;CHANGE RHCC REGISTER 

1 id BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF BITO IS 1 

BITO CHANGE BITO B:T 

JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 ;CHANGE RHCS1 REGISTER 

1 31 BIT/BITS TO BE CHANGED 

1 NEW VALUE OF SC IS i 

Sc CHANGE SC BIT 

JSR RO, d#F ILLRE ;MOV_1 INTO SAVED RHDST 

—— sBaVED REGISTER TC CHANGE 

JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 

e 32 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF ATA IS 1 

ATA CHANGE ATA SIT 

l ;NEW VALUE OF ERR IS 1 

ERR ;CHANGE ERR BIT 


BIS OHATTENT, I#SAVERE+24 ;SET APPROPIATE *ATA’ BITS 
R WORKING DRIVE IN 
: SAVED RHAS” LOCATION 


JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 

RHER1 ;CHANGE RHER1 REGISTER 

1 1 BIT/BITS TO A. CHANGED 

1 NEM VALUE OF RMR IS 1 

RMR : CHANGE RMR BIT 

JSR RO, d#F ILLRE ;MOV_REINTO+<150.%2> INTO SAVED RHBA 


;SAVED REGISTER TO CHANGE 
REINTO+< 150. #2> ;DATA 


” . 
A ea eae eeeee errr reer ee 








Bib 


“> fener TST-°7 2 


El-1,-DIRIT-8, 8FO4 §£ FUNCT. CONT. : ‘11 27(bSS) 30-MAR-76 18:59 PAGE 147 
Is.Fil = REGISTER MOCIFICATION REFUSED - ERE 1\BI7 #2),RMR 
S558 Q2455$ QOMO37 232708 JSR «RO DWFILLRE = ss MOV_0-INTO SAVED RHC 
6889 etS6e llei’e RHWC i $ave REGISTER TO CHANGE 
5330 534565 50805 0 ATA 
s$Sz 
&833 s*#lOMPRRE REGISTERS GEFORE RERGD DATA WITH REGISTERS 
Sso4 #AFTER REGD AND ATTEMPTED MODIFICATION OF REGISTES 
8596 DevSse OONOS" 034002 JSR RO, J8COMREG comes oA SAVED REGISTESS WITH 
sssv PRESEN LUE 
fSS8 Of4572 2O4sS1e2 SAVERE :GOU0 aaa SAVED IN *SAVERE’ 
$899 Dets74 002254 WC sTEST DATA STERTING FROM “RHWC’ 
B90C Ce4$7—E 000022 18. *18. REGISTERS TO BE COMPARED 
6301 Oe4500 924604 23 sRETURN TO 2$ ON ERROR 
Pens C24eCe Of4e24 33 : RETURN T 33 ON NO ERROR 
$305 
5805 924504 2g 
6905 e494 915046 MOV R9,-( SP) : PUSH RO ON STACK 
SSO? Oe*el& J1ls700 O04%650 MOV daTMP I, RO ;GET REGISTER SEEING MODIFYED 
8908 Dele O14537 O0liee2 MOV “(RO ,egsSSDROR :GET ADDRESS OF REGISTER SEING 
6380S OCe4e16 104060 ERROR 60 sRTTEMPTING TO MODIFY REGISTER 
S810 O24820 212600 MOV (SP) 4,20 33 POP STACK INTO 80 
6911 Oe%622 000207 RTS FS ;CURING & RESD COMMAND CAUSED 
68le :IMPROPER REGISTER CHANGE 
£313 :G00D DATA GIVES WHAT SHOULD 
é$i5 :BE THERE 
63.5 sRECET cu DATA GIVES WAT Was 
ESié :THERL AFTER REAC 
5317 s#COMPSRE DATA READ 
SSi8 24é24 33 
£318 ; 
ES20 ce4624 004037 026022 JSR «RO, JBCOMFAR ==»; SOMPARE TWO BLOCKS OF MEMORY 
632, Oe4620 002370 WREROM >GO0D DATA STARTS FROM WRFEROM 
£322 224632 563525 FEINTO TEST DATA STARTS FROM SEINTO 
S23 524635 555552 +2 :43. WORDS TO BE COMPARED 
S24 Uet6s6 Oete44 sT22 :RETURN TO ST23 ON ERROR 
eSi5 ZRETURN TO ON NO ERRO 
6Seb 
$327 
$328 cesses 10403 43 ERROR 34 sDRATA READ WITH 8h ATTEMPTED 
£325 Sess4ze 000207 RT PC MODIFICATION OF REGISTER 
£930 DUF ANG RERD CAUSED ERROR 
£321 SSS6S4 COS327 OO+ESsE cT23 DEC aaTMPs DUN 
&Sse 24650 CO1o0e SNE i$ “ _ :ERANCH if? 7 NOT DONE 
E525 Os452 000127 924652 IMP TST30 : JUMP TO NEXT TEST 
pane S24E5E OSOis7 Cze#ceé 1s MP aesTee ‘JUMP TO BEGINING OF TEST 
3335 
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6335 2 SPEARS ARAALRARLRSS SSSA RAS AAS ALAS SSLALA RSE RAFAFL FLA FASS EPLF SLAF S LES 

Pe. :ATEST 20 REGISTER MODIFICATION REFUSED - RHERI (BIT #2), ‘RMR’ 
] 

538 ;* -ALWRITE HEADER AND DATA COMMAND WILL BE GIVEN TO 

p40 :* CYLINOER 1 SECTOR O TRACK O JATA WORDS 

5S4) :¢ eed 

6942 :* 

pets i A WRITE DATA COMMAND WILL BE GIVEN TO CYLINDER | 

s* 


5345 :* SECTOR 0, TRACK O, 256 WORDS OF 2000 
ES :* AND 4 wotns OF 2001 aMEDTETEL /RETEE 60 
egy? Ie ON atrerey ii SE MADE TO MODIFY A REGISTER 
Peas # QMR BIT #2 IN RHER! SHOULD SET 
ss 3% 
£550 :# AFTER THE WRITE IS COMPLETE ALL REGISTERS WILL 

, §85l :* BE CHECKED 

| €953 1% 
Paes :* THE DATA WRITTEN WILL SE READ SACK AND CHECKED 
as s 
sscs % THIS BE REPEATED FOR RHCS1, RHERL, RHDST, 
P58 :% RHER?. ta RHCA, SHER? 

£658 j  SERHEDEESRERESEORESERDORE OLD ORERTORESTEER SEES EDR OOR SRST ORES 

85S 924662 000004 'ST30: SCOPE 

6960 O24664 012706 091000 oe MOV STACK SP :RESET STACK 

SS. DE4670 O12737 C0030 oO4so4 MON 30, a8fSTNM :SAVE TEST NUMSER 
So See Py 
6353 CE487E OO4T37 033004 JSR PC,2aCLDISK  —-_ ; SET _RI-RHCS1, R2-RHCS2 
5365 ;RI-RHOS! RY-RHER! 
SSés - GIVE Baty INITIALIZE 
ee :SETUP UNIT NUMBER 

So/ Sie 

£968 C2472 012737 o02200 oco4Eso MOV @RHCS1,De8TMPO :FILL REG isTeR 9 3 MODIFIED is 
553 CE4710 4O12737 900007 2O4ess may g7 aaThes :NUMSER OF REGISTERS TO SE TESTED 
S3ru 
b371 :*#PREPSRE TO WRITE HEADER AND DATA 
£973 o2472 sT24 
6575 024716 204737 022004 ISR PC, daCLDISK :SET RI-RHCS1, R2-RHCS2 
e376 sR3-RHOS1, RY-RHER! 
£s77 :GIVE RH-11 INITIALIZ 

| §87e :SETUP UNIT NUMBER 

| 8975 

| §920 

Paes s#FILL WRITE FROM BUFFER WITH HEADER 
E683 OP4722 004037 032630 ~~ JSR —s RO, DeFLHEAD SAVE HEADER DATA IN WRFROM 
£984 O2472¢ 902370 WRFROM sLOCATION WHERE SAVED 
6385 024730 005004 4 “NUMBER OF WORDS SAVED 
£566 24722 010001 10001 “FIRST DATA WORD 
6557 924734 900000 0 »SECOND DATA WORD 

| §$88 Q2472¢ 000006 0 » THIRD DATA WORD 
6368S Cze9749 000000 0 sFOURTH DATA WORD 


a eee ES 


nn ee oe re —— == en ee ee a es ree 
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;#FILL WRITE FROM GUFFER WITH DATA 


JSR RO, DaCLAREA :CLEAR 256. WORDS, FROM WREROM+<44#2> 
WRFROM+< 442) - STARTING FROM WRFROMe<4#2) 
256. 256. WORDS 

970707 *FILL WITH 970707 


“FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 


ISR DBE LHEAD ;SAVE HEADER para IN_WRFROM+< 260. 42 
MREROM+< 2 Bea" #2) LOCATION WHERE SAVED 
“NUMBER AF WORDS SAVED 

10001 FIRST DATA WORD 

1 SECOND DATA WORD 

0 s THIRD DATA WORD 

5 “FOURTH DATA WORD 


:*#FILL WRITE FROM BUFFER WITH WITH NEXT SECTOR CATA 


ISR RO, J@CLAREA sCLEAR 4 WORDS, FROM WREROM+< 248. #2< 

ARF ROI 268. #2) sSTQRTING FROM WREROM+< 268. #2) 
74 WORDS 

S070? -ETLi WITH 70707 


;#NCW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


ISR RO, 29RUN SETUP TO RUN FOR DATA COMMAND 
CYL NDER ] é 
BYTE Oo :SECTOR OC 
“BYTE OO TRACK 0 
~264.-4 WORD COUNT (DATA) = 264. + 
4 HEADER WORDS 
WREROM BU ‘DRE 
iT ragrise REDRESS OF DATA 
p -00 NOT Tnetety "gus ADDRESS INCREMENT 
FMT22 -16 BITS PER WORD FORMA 
“DO NOT INHIB°T ECC RORRECTION 
320 NOT INHISIT HEADER COMPARE 
RIFOR -GET READY TO DC A WRIFOR 
sWRITE HEADER AND DATA WITH &2 IN RHCS! 
ISR Po, DeCHECKT CHECKS ove ROY MOL,DPR,DRY AND VV = J 
“AND THAT ALL STATUS BI*S ARE = 0 
TYPE  ,CPHALT :CANNOT C NTINGE TESTING IF NOT 
HALT - STOP TEST 


MOY --«WRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 
1 rTINgL’ EP PacLock 1S PRESENT 


OCK IS NOT: THERE 


-OR TO *TIME2’ 
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;" TIME’ WILL ONLY SAVE 
CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAC REGISTERS 


MOV DeuRIFOR,-(SP) GET READY TO MOVE COMMAND 
31s gGO'TE, (SP) GET READY TO SET GO AND 
ENABLE INTEFRUPT 
ay (SP)+,DRHCS! WI TH 
ee | RHCS1 FOR WRITE HEADER AND DATA 
HITH TNFERELET ENABLED 


7#ONE REVOLUTIONS16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


WAT_ ;WAIT FOR ROY BIT TO SET 

RHCS! “WATT FOR RHCS1 REGISTER 

RDY >WAIT FOR ROY BIT IN RHCS1 REGISTES 
981. “ALLOW 9810 MICRO SECONDS 

S34. -R5Y MUST SET BE 


31470 AND 18150 MitRO SECONDS 
;#NOW PREPARE FOR THE WRITE DATA COMMAND 

s#FILL WRITE FROM BUFFER WITH 2S6 OF 2000 AND 4 OF 2001 
SK RO, a 8CLAREA ;CLEAR 256. WORDS Ai WRF ROM 


WRFROM SSTARTING EROM UR RFRO 

256. 7296. WORD 

2000 SFYCL AYTH 2000 

Js RO,3sCLARER  —-; CLEAR 4 WORDS, FROM WAFRO Ms< 256. #2) 
WRFEOMY< 256. #2) ;STARTING FROM WAFROMs< 26. 42> 
“ ‘4 WORDS 

2001 FILL WITH 200! 

;#FILL WRITE DATA COMMAND 

JSR «RO, DBRUN ;SETUP TQ RUN FOR DATA CoMMtaNd 

1 ;CYLINOER 1 

BYTE 0 ISECTOR 0 

‘BYTE 0 STRACK 9 

-256. WORD COUNT = 256. 

WRFROM ;BUS ADDRESS 


:STARTING ADDRESS OF DATA 
SBUFFER = WRFRON 
“gee :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
PMT2e :16 BITS PER WORD FORMAT 
300 NOT INHIBIT Ecc “CORRECTION 
NOT JNMEBIT HEADER, cONPARE 
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:#SQVE REGISTERS FOR COMPARISON AFTER ATTEMPTED 
{eREGIS STER MODIFICATION DURING @ WRITE DATA 
SSR RO, J8SAVER :SAVE REGISTERS 
RHWC “RHWC IS THE FIRST REGISTER SAVED 
SAVERE ‘STARTING ADDRES OF WHERE 
>THE REGISTERS ARE sf D 
18. ; NUMBER OF REGISTERS 
:SAVED = 18. 
ISR PC, SCHECKT 5 CHECKS ova, ROY MOL.OPR, ORY AND VV = L 
“AND THAT status Bits arE = 0S 5 = 
TYPE — ,CPHALT : CANNOT LOnTENGE TeeTiNG IF NOT ' é 
HALT :STOP TEST 


MOV DBRPYVEC , IRPVEC it RPOY a ag, 
*TIMEL’ IF OCK IS 


ONLY ‘SAV 
‘CURRENT CYLINDER GDDRESS 
:BND LOOK AHEAD REGISTERS 


MOV ai ie} GET READY TO MOVE COMMAND 


ers #G0'TE, (SP) :2ET READY TO SET GO AND 
s ENABLE INTERRUPT 
MOY (SP)+, 3RHCS1 WITH 
0 IN RHCS! FOR WRITE DATA 
383 H INTERRUPT ENABLED 
MOV QsTMPO,R :SET RO TO REG ADDRESS 
MOV eBIT1!87 10, a(RO)+ sRTTEMET r9 URITE INTO A 


;QURING WRITE DAT 
MOV RO, d8TMPO ISAVE OFF NEW REG ADORE 


;*#NOW_AMR MUST BE SET SUT THE COMPLETION OF 
;*WRITE DATA MUST BE WAITED ON 


WAT ;WAIT FOR RDY_BIT TQ_SET 
RHCS1 swedT FOR RHCS1 REGISTER 
Y ;WAIT FOR RDY BIT IN RHCS1 REGIS 
981. ;ALLOW 9810 MICRO SECONDS 
834. ROY MUST SET BETWEEN 


1970 AND 18150 MICRO SECONDS 
;*#CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J8CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCC ;CHANGE RHCC REGISTER 

1 1 BIT/BITS TO io CHANGED 

1 ‘Neu VALUE OF BITC IS 

BIT0 ;CHANGE BITO BIT 


em ee a nen ee eee = 


REGISTER 


TER 





Sitti ate PSR ne oT Tea 


fe (19.000 “30 U1 Gotu € Soo -sotut TU OW0 IW ULE Gotu. -. 


00.0.000 0900 00 00 00 0000 00 GD ~~ > 


OMIOOO et 
me IVs) 


furuty form 


Ooo oO 


fururutot fot 
muiwiwigct uw wt 
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NOES sigs02RJJ-8 REOWS, 
Pil +30 


004037 
002200 
900091 
090001 
100000 


904037 
od2e222 


s00532 


540000 
053727 


004037 


002202 
go00g! 
004037 


092204 
90000 


033674 


033674 


004644 


033674 


032705 


032706 


034002 





004536 
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SR RO, JHCHREG ;CHANGE BITS IN SAVED REGISTER 
HCS1 ;CHANGE RHCS1 REGISTER 


is BIT/BITS TO BE CHANGED 
;NEW VALUE OF SC IS 1 
C CHANGE SC BIT 


R RO, d8CHREG ; CHANGE BITS IN SAVED REGISTER 
0S! ;CHANGE RHDS1 REGISTER 


ie BIT/BITS TO a CHANGED 
ATA IS 1 


RR ‘CHANGE ERR BIT 


81s OSATTENT,JaSAVERE+24 ;SET APPROPIATE ‘ATA’ BITS 
FOR WORKING DRIVE IN 
SAVED RHAS LOCATION 


JSR «RO, DHCHREG ©: CHANGE BITS IN SAVED REGISTER 
RHERL -— YCHANGE RHERL REGISTER 

1 . / GL BIT/BITS 10 BE CHANGED 

1 ENEN YALUE OF RMR IS" 1 

RMR ;CHANGE RMR BIT 

JSR -RC,2aFILLRE =»; MOV_1_ INTO_SAVED RHOST 


;SAVED REGISTER TO CHANGE 
DATA 


JSR | RO, J#FILLRE ;MOV_WRFROM+<2S6. - whee SAVED oles 
SAVED REGISTER TO CHANGE 


RHB 
WRFROM+< 256. Re) ;DATA 


JSR RO, DeFILLRE ;MOV_O INTO SAVED RHWC 
RHWC : SRYED REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE WRITE DAiA WITH REGISTERS 
S#AF TER WRITE AND ATTEMPTED MODIFICATION OF REGIS TER 


JSR RO, d8COMREG : COMPARE itis REGISTERS WITH 
;PRESENT VALUE 


SAVERE ; GOOD DATA *SBVED IN "SAVERE’ 
We :TEST DATA STARTING FROM *RHNC 
18. 318. REGI 0 BE COMPARED 
2s RETURN TO 33 ON 

3$ tRETURN TO 3$ ON NO ERROR 
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MOV RO,-(SP) 


*PUSH RO ON STACK 
MOV aetMPo, RO 


tAET REGISTER BEEING MODIFYED + 2 POINTER 






MOV -(RO),a8$S8080R :GET ADDRESS OF REGISTER BEING MODIFYED 
ERROR 6 !ATTEMPTING TO MODIFY REGISTER 

MOV (SP)+,RO . POP STACK INTO RO 

RTS pr Ay RING A WRITE COMMAND CAUSED 


; IMPROPER REGISTER GIVES WHAT SHOULD 
t's DATA GIVES WHAT SHOULD 


TRECEIVED DATA GIVES WHAT WAS 
:THERE AFTER READ 
;#CLEAR ALL ERROR FLAGS 


ISR C, #CLDISK :SET RI-RHCS1, R2-RHCS2 
:R3-RHDS1 1 
:GIVE RH-11 INITIALIZE 


SETUP UNIT NUMBER 
;*FILL WRITE FROM BUFFER WITH EXPECTED DATA 
JSR RO, d&CLAREA ;CLEAR 2S&. WORDS 







oe WRFROM 


WRFROM ; STBRTING FROM WRERO 

ess. i 

2000 SFILL ith 2000 

JSR PO, JeCLARER sCLEAR 4 WORDS FROM WRFROM+(256. #2> 
HRFROM+ «258. #2) TARTING FROM WRFROM+. 255. 2) 


4 worDs* 
3001 {FILL WITH 2001 


;*NOW THE READ DATA COMMAND WILL BE FILLED 
JSR RO, 3#RUN ;SETUP_ TO RUN FOR DATA COMMAND 
1 CYLINDER 1 


BYTE 0 i SECTOR 0 


BYTE Q ; TRACK 0 
-260. : WORD te ae = 260. 
REINTO :BUS ADDR 
; STARTING BOORESS OF DATA 
:BUFFER = REINTO 
0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECISFMTee 316 BIT ; PER WORD FORMAT 
pINHIGIT ec CORRECTION 
;00_NOT INHISIT reo? COMPARE 
READAT “GET REA DY TQ Rs ~ DAT 


READ DATA WITH 70 IN R 


;#NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
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JSR. - RO, DeSAVER ;SAVE REGISTERS sai 
RAWC :RHWC_IS THE FIRST REGISTER SAY 
SAVERE :STARTING ADDRES OF WHERE 

{THE REGISTERS ARE SAVED 
18. sWUMBER OF REGISTERS 

;SAVED = 18. 
JSR  —- PC, BCHECKT CHECKS DVA,RDY,MOL DPR ORY AND vv = 

: AND THAT ALL StaTUS BITS ARE = 9 

TYPE =, CPHALT :CANNOT CONTINUE TESTING IF NOT 
HALT :STOP TEST 





MOV DSRPYVEC, TRPVEC ; ‘eT, a VECTOR ADDRESS 
310 *TIMEi’ IF P-CLOCK IS PRESENT 
Ae TO "TIMER? <? P-CLOCK IS NOT THERE 
TIME’ WILL ONLY SAVE 
: CURRENT CYLINGER ADDRESS 
AND LOOK AHEAD REGISTERS 













Moy QBREADAT,=(SP) GET READY TO MOVE COMMAND 
BIS sGOlle,(SP) ;GET READY TO SET GO AND ‘ 
ENABLE. INTERRUP T 62h 


MOV (SP)+, JRHCS1 360 W 
70 IN RHCS1 FOR READ DATA 
sHiITH INTERRUPT ENAGLED 
MOV d81,R0 ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3, RS SAVE RHDS! DURING seni OPERATION 



















WAT ;WAIT FOR ROY BIT 19 SET 

RHCS1 :WAIT FOR wee ISTER 

RDY ;WAITT FOR T IN RHCS1 REGISTER 
981 ;ALLOW 9810 NIER ECONDS 

834 sRDY MUST SET 


:1470 AND 18150 MICRO SECONDS 


;*COMPGRE CONTENTS OF RHCS!1 AND RHDS!1 ALREADY SAVED IN 
:#RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MCV DaREADAT =(SP), : SAVE COMMAND 
BIS #IE'DVAlGo, ( NCLUDE IE!DvA! 60 
MOV (SP), seecohat ‘UE FOR PRINTOUT 
CMP (5P)+,R0 : DURING ABOVE OPERATION ONLY IE!DVvA!G 
AND COMMAND SHOULD BE SET 

BEQ 70% : BRAN CH IF GOOD 
MOV RO, J#SBODAT : BAD 
MOV 1, a#REGADR FAILING REGISTER RHCS! 
ERROR 21 : DU RING ABOVE OPERATION N ONLY 

“COMMAND A ND IE'DVA'GD SHOULD BE SET 
MOV #MOL!DPRIVV, -(SP} SA ve BITS SET DURING OPERATION IN REDS 
MOY (SP). , SRSSODRT : SAVE FOR PRINTOUT 
MP (SP )+,R5 : DURING RBOYE NOPERATICN ONLY MOL!IDPRE VY 


SHOULD BE SET 
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7335 QeSb6= 
7336 OcS664 
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BEQ 723 ;BRANCH IF GOOD 

MOV RS, d8$89087 BAD DATA 

MOV R3, J#REGADR FAILING REGISTER RHOS! 
ERROR 63° :DU RING ABOVE OPERATION ONLY 


:MOLIDPR!VV SHOULD BE SET 


;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR. RO, J8F ILLRE ;MOV_O INTO SAVED RHWC 
— s SRVED REGISTER TO CHANGE 


JSR RO, a#F ILLRE ;MOV_REINTO+<260.#2> INTO SAVED RHEA 
RH ;SAVED REGISTER TO CHANGE 
REINTO+< 260. #2> ;DATA 


JSR RO, J#F ILLRE ;MOV_2 INTO SAVED RHOST 
wa 3 anveD REGISTER TO CHANGE 


;*NOkK COMPARE REGISTERS SEFORE READ DATA WITH 
;*AF TER COMMAND 


JSR RO, d#COMREG ‘BRE SENT aie REGISTERS WITH 
SAVERE :GO0D DATA SAVED IN *SAVERE’ 

WC :TEST DATA STARTING FROM "RHWC’ 
18. 318. REGISTERS TO BE COMPARED 
43 RETURN TO 4$ ON ERROR 

S$ RETURN TO 5$ ON NO ERROR 


4§: — z + RANG DATA CAUSED IMPROPER REGISTER 


;GO0D DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
eles nae INTO GUFFER wiLe BE CHECKED TO SEE THAT READ 


ISR RO, ¥COMPAR sCOMPARE TWO BLOCKS OF MEMORY 
WRF ROM °GO00D DATA STARTS FROM WREROM 
REINT ; TEST. RTA STARTS FROM REINTO 
256. : 3 £58. ORDS 9. BE COMPARED 
+3 ETURN NTO 63 ON ERROR 

ST28 ; ‘RETURN TO ST28 ON NO ERROR 


6S: ;READ DATA ERROR AFTER A WRITE DATA 
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DPRIIA-Pll $30. REGISTER MODIFICATION REFUSED - RHERI (BIT #2), 

7368 028730 000207 RiS PC :MITH REGISTER WOOTE ¢ATION 

5333 j2IF ALL? REGISTERS Not’ KOMPLETE E HEN Rebar” 

°37] g2s732 005337 o04656 sT23: bec ae TMPS ;COUNT DOW 

5355 ASE03 Obi ane BNE CLS :BRANCH TF 7 NOT CONE 


7373 O25740 000137 025750 JMP TST31 :JUMP TO NEXT TEST 
fact OeS744 000137 Oe471é 1$: JMP STa4 ;JUMP TO BEGINING OF TEST 
isi 
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7474 BSE iad 
747E 026146 


7479 DSeieg 


7481 O26162 
7485 OSb1E6 
7433 26172 


ES A, skeen 


31 
oco022 


004737 


104400 
000000 


013777 


013746 
052716 


012677 


104412 
002200 
000209 
003326 
000175 


013746 


022600 
001405 


104021 


012746 
011637 
022605 


033064 
o56662 


004506 


002346 
000101 


154074 


177777 


002346 
004101 
001124 


001126 
004500 


154076 


154100 


b4$: 



























M16 
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18. ; NUMBER OF REGISTERS 
*SAVED = 18. 
ISR PC, I¥CHECKT “CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 
!AND THAT ALL STATUS BITS ORE = 0 
TYPE §,CPHALT “CANNOT CONTINUE TESTING IF NOT 
4ALT :STOP TEST 


Mov DBRPYVEC, ARPVEC ;SET RPOY VECTOR RODRESS 
TQ roti IF oF Bote IS PRESENT 
‘OR *TIME2’ IF P-CLOCK IS NOT THERE 
. ne WILL ONLY SAVE 
: CURRENT eYLINOER ADDRESS 
AND LOOK AHEAD REGISTERS 


MOV DBREADAT,-(SP) ;GET READY TO MOVE COMMAND 
BIS #GO!TIE, (SP) :GET READY TO SET GO AND 
ENABLE, INTERRUPT 


MOV (SP)+, IRHCS! 60 
0 IN RHCS! FOR READ DATA 
ATH INTERRUPT ENABLED 


MOV dR1, RO SAVE RHCS1 DURING ABOVE OPERATION 
MOV dR3,RS SAVE RHDS1 DURING ABOVE JPSRATION 
MV #-1, JRHAS ;WRITE gl RHAS THIS SHOULD 

:NOT SET RMR 


;*TIME IS NOT IMPORTANT 


WAT : ;WAIT FOR RDY BIT TO SET 

RHCS1 ’ WAT FOR RHCS1 REGISTER 

ROY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
1750 ;ALLOW 17590 MICRO SECONDS 

le ;RDY MUST S 


; ET BETWEEN 
;16250 AND 18750 MICRO SECONDS 


eR ANDY CONTENTS OF RHCS1 AND RHDS!1 ALREADY SAVED IN 
*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MOY JREADAT,-(SP) ;SAVE COMMAND 
BIS #IE'DVA!GO (SP) s INCLUDE | IE'DVA!GO 
MOV (SE) ,8asGDOAT 358 VE FOR PRINTOUT 


CMP SP)+,R0 :DURING ABOVE OPERATION ONLY Te! DVA!GO 
:AND COMMAND SHOULD BE SET 

BEQ 64S ;BRA NCH IF GOOD 

MOV RO, a#SBDDAT Q 

MOV R1; aJ#REGADR FAILING REGISTER RCS! 

ERROR 21° : DURING ABOVE OPERATION ONLY 
“COMMAND AND IE!DVA!GO SHOULD BE SET 

MOY aol DPR! VV, -(SP3 SHVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP) SeScDbAT :SAVE FOR PRIN 

CMP ate :DURING ASOVE OPERATION ONLY MCLIDPRIVY 





-. 
Ld 


- 
- 
_ 

= 
- 
~~ 

= 
- 
7 

- 
- 
: 
- 
- 
5 
od 
3 
= 

5 

: 

z 
: 

: 

-= 
- 

- 

- 
= 
: 

$s 


ae 
a 
un 


‘ereereege 
4 


et woes 


 pewemte 
€ eer & 


£0 ot de 
Li ALY Lie] ae) 


a ee 
eega 
t.- 


- 
cd 
= 
- 
- 
= 
- 
= 
3 
< 
oS 
. 

oe 
> 
- 
— 
= 
= 
= 
: 
“= 


44 


‘ 
S)i) ) 
fartioriy 
mrad: 
Custurtes 
i’ £05 


o-+0-<9 


i) 
task 


tut 


*CyCocpOocotiycotototo wo o 
itr ee tacts tt Ther eh tT petro 


OP ONT 2. Carus C000 S20P CFE. CU CO OP Ur Gti Oo 


uw 


reo 


folotutotatutatot 
RGR 
Para 


‘rao 


“o--6 
kak 
future 
Pe oe 2 
om £09 


ladulatutotutotate 


~y: 
wes 
C9070 44 
fruruofutu | 
marca 
fourututuro 
moran 
LTO 4. 


ututut 


isa Sa 
teiterterte 
COCO G ICI GI COICO GPU TOFU TOPO LU TUTTE +6 + 0+ b* bs bod 


lutea 


vr 


I~ 


~y 
cre 


et EE REE SS SES Shs SSA SGD OOS 





ae aa 
“ov 8S, ge$B0DAT 
MoV -«-R3, DEREGAOR 
ERROR 63 


2 NOW CRENGE SSVED & 


JSR RO, daFILLSE 
Rewe 

a 

JSR RO, asFILLRE 
R55 

REINTO#< 258. #2) 


RO, SeFILLRE 


;*#NOW COMPARE REGISTE 
TeRFTER COMMAND 


rs RO, JeCOMREG 
SQVERE 


\ 
‘ 


i$ 
es 


ERROR 33 
RTS PC 


= ¢ 


Zp res 
t’-4 


So now 
coc DP YL 
Toe 
on sie 
«corm 


Bde of Tree 


smo of 
Cyr eet te Of 


“he? 
wy 


« 





STERS TO EXPECTED VALUES 
INTO SAVED SHWE 
REGISTER TO CHANG 


Dm 


SAVED AeaisteR t 
DATA 


4 


V0 INTO saveD RHCC 
“ee REGISTER TC CHANGE 


RS SEFORE READ DATA WITH 


ta SAVED REGISTERS WITH 
eN VALUE 

f pare SAVED in oa 
frees 10 Be ESNPARES 
2s ON NO ERROR 


CAUSED IMPROPER REGISTER 


VES WHAT Roy ar D 2s 3 L. 


$8000. ATA ra 


NOW READ INTO SUFFER witt Ee Sheek 


eas GOOD 


JSR RO, daCOMPAR 
WRF ROM 

REINTO 

eS6. 


me me er eee ew - ee 


noeOe TO SE COMPARED 








=e ee 
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MNDEC*LL-DIRIT-8, REOS 5 8 FUNCT. CONT. ais! 2 mMacYl1 27(655) aa ee 18:59 PAGE 160 
DIRITS.F il "355 RESISTE a MSSteECR ION REFUSED - RHERL (BIT 82)RMR 
7538 926204 026310 33 ;RETURN TC 3S ON ERROR 
t3s3 C2tsd& 28314 ah} sRET CRN'TO 4$ ON NO ERROS 
330 
TS41 ! 
rote O26210 104034 33: ERROR 34 . READ DATA ERROR AFTER WRITING INTO 
TS83 Cecile Cocec? RTS ec sRHES DURING REGD 
“S38 
TSS DEEI14 43: 





MNOEC=11-DIRII“A, RFOH/S 


OIRITA.P12 


ulate 
CUTIE 


OI O.W0D OO OTe OO. 0 OU 


utututut 


1-3 
we 
PLiAL IAPC AD CALC Ati Alias ati ars att] 


uiuutuiututa 


~) 
wu 
~~ 


adototatatolo 
“Io 


otal 
a 


RE 


atalatatet 


uw 
1000000000 w.0.0codmod#D 
Dib EURULE Colts CopeD aur 


Malutototutautaatat 


~“) 
are 


& FUNCT. 
REGISTER MODIFICATION REFUSED - RHER] (BIT #2)R 


004504 


001200 


oo1200 


aET Flt 


CONT. 
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pp RRRRRERREEERRER REALE RRRSEEEREERSEAE SEES ELA RSE REESE EERE EEE ESE SS 
sTEST 32 ILLEGAL FUNCTION RHERI - (BIT #0,ILF) 


THIS WILL CALCULATE EVERY JLLEGAL FUNCTION — 
BETWEEN ACH TIME AN ILLEGAL FUNCTION 
1S Foard TT WILL BE STORED TN ILLEGAL THEN 
EXECUTION LEGA 

RILL BE ATTEMPTED AND RESULTS CHECKED 


RESRERERERE REAR A EEREERARE ESE RESE SEES EEE RAR ERR ER ER ESHER EES ES ES 
ti733. SCOPE 


Om 


MOV BSTACK, SP sRESET STACK 
MOV $32°5 S44 +S5TNm :SAVE TEST NUMBER 
JSR BCLDISK :SET R1-RHCS1, RE-RHCS2 
:R3-RHOS! RY-RwE 
:GIvE RH-L1 INIT Tact 2E 
: SETUP UNET NUMSER 
TST DeRH7O sRH7D CONTROLLER ? 
SEQ 308 :SKIP NEXT IF NOT = 
IMP TST33 :IF SO SKIP THIS TEs? 2---------------- } 
208: 
;*#GENERATE ILLEGAL FUNCTION 
CLR DesTMP) _ GET READY TO MAKE ILLEGAL FUNCTION 
18: MOV aE TAL, RO —s«39E7 POINTER TO BEGINNING OF COMMANDS 
MOV RS COUNTER (17 GOOD FUNCTIONS) 
23: CMP SaSTHET (RO)+: ris THIS @ LEGAL FUNCTION 
SNE 3$ RANCH IF NOT LEGAL 
ADD 82, D8STMPL :MAKE ANOTHER FUNCTION 
35 1 :GET READY TO TEST NEW FUNCTION 
33: DEC RS sNOT LEGRL SQ DECREMENT COUNTER 
BNE 23 sBRANCH IF 17 NOT Di NE 
IT #100, a8STMP1 ALL air vs p BIT #5 COMPARED? 
BNE 208 “BRANCH OUT IF DONE 
OR 19% 3BR ANCH % AAT PRUE 
208: IMP AT ha 
138: MOV DaSTMP1. DeILL EG.’ zaN ILLEGAL FUNCTION IS FOUND 
ROD 82, 083 TMP] -GET READY FOR NEW FUNCTION NEXT TIME 
} ;*#ILLEGAL FUNCTION HAS BEEN FOUND 
(. gxiT IS IN’ eee 
f°. Moy #43, O8SLPERR sERROR RETURN POINT 
as :#SAVE REGISTERS FOR COMPARISON AFTER GO 
ISR PC, JeCLDISK 3357 RI-RHCS1, R2-RHCSE 
Ro-ROS! RoR eR 





450 


ses 
Q 


‘BEEoSe 
026730 


026732 
026736 


C2575 34 


il 

026 
D2e4sy ° 
BEELEC 
O26 
bee: 


0OS977 

ns 

0003" 
Se503e 


tetatetel 

VvOOOC 
uy 
Oo 
GJ 
“ 


js) os | oe | oe | oe | oe] 


904037 
002172 
0045 12 


000022 


004737 
104400 





TST-PT 2 MACY LI 
N RHER1 - (BIT 00. TLE) 


138: 


178: 


148: 


SO-MAR-76 18:59 PAGE lee 


FRAM, JRHBA 
aSC'TRE: 3a118+12: SAVED. RHCS] 
sWRFROM-<66.*2>, I REA 


1S$+6 
eMxFIOR De12$+12° SaNED Roncse 
as Legs 16 RHC 


TOrTesy -(SP) 





‘}OLEAR WORD count 
Paoner ERR cTIONS ARE_DATA 


H_IF aie 0 IS HIGHER THAN 5O_ 
Bai. YALU OF RHCS1 SrOULD HAVE 


ZONLY SC_A 
;EXPECTED VBLUE OFSRHCS2 SHOULD HAVE 
:NOTHING ADDE ie: 

:NO BITS TO BE CLEARED IN RHCSE 
tRHBA SHOULD BE 

ICLEAR SAVED RHWC 


; BRANCH 
13. FUNCTION 54 
BRANCH IF NOT 


asc TRe g1118+12; ate RHCS1 SHOULD HAVE SC AND TRE 


A SHOULD HAVE 204 
HAVE 102 


lege RHWC SHOULD HAVE 
eee RHCS2 SHOULD HAVE KF _AND 98 


S BRANCH 
1S FUNCTION &6 
; RANCH_IF NOT 
5 MON fE 70 INTO 


0 RHWC 
FILL RHBA WITH WRFROM 


S 
sR SHOULD HAVE IR CLEARED 
: CLEAR ae 


aR 488 CLEAR RHSA 
sSC!TRE, 29118412; RacSi SHOULD HAVE SC AND TRE 
9815$+ +6" ; RHA 


: RHid 
eucée 
:RHCSS 


CISTERNS 
THE FIRST ms ISTER SAVED 
WHERE 
NUMBER 3 ECISTERS 

SAVED = 18. 


;CHECKS DVA, ROY ot ,DPR,ORY AND VV = | 


: BIND THAT ALL staTus BITS ARE = 0 
s CANNOT 


CONTINUE Teri 1 Rio? 


iGeT TLL EGR 4g hee 
:INCLUDE IE AND G 


:G0 $5 RHCS1 ime ILLEGAL FUNCT 













MNOEC 11 -D2RJJ“A, RFO4S 


OZRIJA.PL1 


TESS 2875S 


‘ CO4 
?67e 027010 


oe 027024 


ress 927032 


758? 027032 
7688 027036 
7556 227040 
7281 De704e 
7ES2 OS7044 
7883 (027046 
ESC 


7699 927069 
7701 fhe: 


“7896 270 7054, 
7698 27054." 


7706 027074 


t32 


Apaate 


aatae 


004037 
J02202 


090001 
004037 


obeeee 


600591 
2 o40000 


053737 


004037 
0022 


004037 
002176 


033674 


‘ 


033874 


‘ 
4 


po4s44 


033674 


033674 


/& FUNCT. CONT. 


oo4#s20 
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ILLEGAL FUNCTION RHERI - (BIT #0, ILF) 


OO¥S3E 


? 
“7 


. . 
*¢ . 


128: .. 
x sR RO, JaCHREG ..-. sCHANGE“BITS IN SAVED REGISTER 


"y RCHANGE SAVED REGISTERS TO EXPECTED VALUE 


RHCSL ~ \ GCHANGE RHCS1 REGISTER * 


wh : “3, BIT/BITS TOBE CHANGED 
4 ‘Ned VALUE OF SC IS 1 
ma :CHANGE SC air 
, BIS eTLec., ausaverése: INCLUDE ILLEGAL FUNCTION Poon 





FOL 






WAT swat FOR RDY on 9 Fes 

RHCS1 ;WAIT FOR petal Be 

;WAIT FOR ri “FHCs REGISTER 
908. tae seo. mre 0 SECON 

907. MUS 





Y T SET BETWEEN 
:10 AND 18150 MICRO SECONDS 







S RO, d&CHREG ;CHANGE BITS IN SAVED REGISTER 


R 
HERL :CHANGE PHER1 REGISTER 


1 8IT/BITS TO Pe CHANGED 
‘NEW VALUE OF ILF IS 1 
CHANGE ILF BIT: 


J 

R 

1 

1 

ILF 

tr RO, 2aCHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS ;CHANGE RHOS1 REGISTER 
é 

l 

AT 

l 

ERR 





“J 12 BIT/BITS 10_8E CHANGED 


a | : CHANGE ATA BIT ’ 
NEW VALUE OF ERR IS 1 
CHANGE ERR SIT 


BIS DRATTENT, JaSAVERE SEY »SET APPROPIATE ‘ATA’ BITS 
R WORKING DRIVE IN 
eed RHAS LOCATION 


;#RHCS1 WILL HAVE SC AND TRE ADDED IF FUNCTION IS GREATER THAN SO 








JSR RO, deCHREG ..< ;CHANGE BITS IN SAVED REGISTER 









~~ 








;*RHCSE WILL HAVE NOTHING ROSES Tf, FUNCTION TS LESS THAN 50 


;CHANSE RHCS2 REGISTER 


: 
E 

z - . sa arrarts. TO. 3 CHANGED 
] : ine vet UE OF MXF IS 1 

MxF HANGE M 


0 
IR 








ee 
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ll t32 LLEGAL FUNCT oN RHERI - (BIT #0, ILF) 
1 i eee a a de TS 
B15 mitt a DATA 
027104 WE ee 
O27104 04037 032706 ' JSR ss RO, DF ILLRE sMOV_0 INTO SAVED RHWC 
Oe7110 ooel72 RHIC :SAVED REGISTER TO CHANGE 
Oe7li2 oos000 C : DATA 
op eNOW eahihae Re eapeng ne teR GIVING AN ILLEGAL conan 
027114 o04037 034002 458° 4 Rd Sagres ; COMPARE saveD REGISTERS WITH a Vee 
927120 90y512 ener” > 36900 ATA SAVED _IN 'SAVERE’ 
Oa7ise O02254 aa eas ITEST DATA STARTING FROM 'RHWC’ ras 
27124 dodcee Nala eae :18. REGISTERS TO BE COMPARED 
De7i26 Oe713e eid tRETURN TO §$ ON E 
27130 OS? 136 ma Pee tRETURN TO 6% ON NO ERROR 
927132 104051 ss ERROR” ~ 31. :GIVING ILLEGAL FUNCTION CAUSED 
Ge7134 ooo20? RIS. PC: ;IMPROPER REGISTER CHANGE 
Feet :G00D DATA GIVES Har 
> mimes: od eR tives ReGI STE 
erate gem ae , RE FENTS REVER ILL : 
ae 7 ZFUNCTION WA GIVE 
927136 000137 026352 S$: ~-3ME~ alg i BRANCH FOR NEXT FUNCTION 
oe714e2 78: a erie 
027142 ios: 
a 
3@r, 


a ee ee ee ee. ee 














GO1 


MNDEC=11-D2RJ I-A, RPOYS/& FUNCT. CONT. 


DZRIJA 


Pil 


pete 


Ge7250 


~ 027254 


027250 
027266 


027300 . 


c27202 


+32 


‘900904 


Jl2706 
012737 


004737 


013711 


005937 
012777 
005077 


004037 
Oei7e 
004512 


000923 


001000 
000033 


033004 


177374 
002370 
152774 
010099 


Cooc0! 


000460 


177777 


009001 
033064 


OS6&52 


002344 
004632 
010000 
152720 


033152 


004504 


1530Ce 


152746 


152722 


° mee me We Oe Oe wees 
m 


+6733: 


18: 





T2 MACYLL 27(655) 30-NAR-76 18:59 PAGE 165 
TLLESAL FUNCTION BUERI = (BIT #0, ILF) 


~ 


DE pga ee ag i og nae EAE ait To mae 
;#TES 


OPERATION INCOMPLETE - RHERI‘BIT #12)0PI 


3 
A WRITE HEADER AND DATA COMMAND IS GIVEN 


INDER_O SECTOR 1 TRACK QO KEYS O DATA 177777 Tg 


CY 
WORDCOUNT 260 


AFTER GO IS ae THEN THREE. INDEX PULSES ARE 
GIVEN. THIS. SHOULD BRING’ OPI HIGH 


Sco 
MOV 
MOV 
JSF 


errreectettrerticiesecersceteritsttstrertrtereererterereetern 
PE 


WSTACK,SP .-;RESET STA 
#33, a8TSTNM :SAVE TEST NUMBER 
PC, JeCLDISK 


;SET RI-RHCS1, R2-RHCSE 
:RI-RHDS1, RY-RHERI 

GIVE Bret INITIALIZE 
:SETUP UNIT NUMBER” ; 


ARE eet SETUPS 
#-260., :5o8 DATA WORDS 4 HEADER WORDS 


. SMRFROM. oe THESE TWO INSTRUCTIONS GETS 
RQ, aRHBA ADR. 


OF WRFROM BUFFER INTO RO AND 
. ;BUS ADDRESS REG + BR 
#FMT22, (RO); FOR MAT=1& .BIT WOR 


CYLINDER=O 
#1, (RO)+ : TRACK=0, SECTOR=1, KEYS=0 
(RO)+ :KEY1=0 
(RO)+ Ey asp 
#256. RS COUNTER 
DATA, WRITE HEADER 8 DATA, AND FORMAT OF THE WRITE 
#-1, (RO)¢ :MOVE ALL ONES FOR DATA 
18 sBRANCH IF DATA NOT COMPLETE 
#1, DRHDST bake 0 SECTOR=1 
PC) ORCHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 


THAT ALL STATUS BITS ARE = 0 


»CPHALT CANNOT CONTINUE TESTING IF NOT 
JSWRIFOR, dR] GET READY FOR oy ¥, HEADER AND 
:DATA gf 62 IN RHCS1 
O#ERFLGS set ho ERR LAS 
| ANC taal MAT BIT=1 (16 BIT WORDS? 
aRHCA SEYLINDER =0 


: #SAVE REGISTERS FOR siete AFTER READ 
Ish RO, J#SAVER ‘A ¥ 


SAVERE 
19, 


REGISTERS js 

c 15 THE FIRST REGISTER SAVED 
STARTING RODRES OF MERE 

THE REGISTERS ARE SAVED 

: NUMBER OF REGISTERS 

:SAVED = 





SEQ Cel3 








MNOEC=11-D2RIJ-A, RPOY/S/S FUNCT. CONT. TST-PT 


DZRIJA.PL1 


7854 927304 
310 


3 
0 

: 

3 

G o27340 
S 037344 
é 

5 

S 

0 


7832 027376 
7833 Oe74Ge 


7835 027404 


7833 027414 


7841 027416 
7842 Oe74ee 


7844 O2e74e4 


7850 027436 


7848 = Oe7434 
7851. Oe744e 
| 


+33 


0S2777 
012737 


Ans237 
verre: 
001575 


004037 
002200 


000002 


o4oo00 


004037 
COeeee2 


000002 


att 


004037 
002204 
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OPERATION INCOMPLETE - BERL (BIT #13)0PI 


OCe2e0 


000004 


000001 
009113 


004642 


900904 
COo004 


OO0004 
000004 


000994 
000004 


033674 


033674 


032706 


15264S 
on4s42 RU INWAT: 


1$: 


;*#G0_TO WRITE HEADER AND DATA 

;*BUT BEFORE GO, ONE INDEX PULSE IS GIVEN 

:*T0 CLEAR OUT THE SECTOR CLOCK COUNTER IN THE RH11 
;#SO THAT NO SECTOR PULSES COME DURING THIS TEST 


MOV JBRHMR, RO :NOW RO HAS MAINTENANCE REG. 
MOV #OMD, JRO ize DIAGNOSTIC MODE 


BIS #MINX, JRO NDEX 
BIC - MINX: aRO :CLEAR INDEX THIS GIVES 
ONE INDEX PULSE 


81S #G0, dRHCS1 ;ISSUE THE GO’ BIT TO THE RH11 
MOV #75. , J8RUNCTR ;LOAD *RUN’ LINE rey 


DEC JeRUNCTR : COUNT 
SNE 1$ :CONTINUE UNTIL = 0 
- xISSUE THE FIRST DIAGNOSTIC INDEX Pulse 
815 #MINX, JRO :SET INDEX PULSE 
ate sHINX” aro :RESET INDEX 
- #SECOND INDEX PULSE 
15 gMINX, JRO :SET INDEX 
rc SMINX’ aRO :CLEAR INDEX 
-*THIRD INDEX PULSE 
8rS #MINX, JRO :SET INDEX 
Bic gMINX: JRO ZELEAR INDEX 


S¥CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J8CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 :CHANGE RHCS1 REGISTER 
e ;¢ BIT/BITS TO BE CHANGED 
1 NEW VALUE OF SC IS 1 
SC ;CHA ¢ BIT 
1 ;NEW VALUE OF TRE IS 1 
TRE CHANGE TRE 3IT 
JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS) ;CHANGE RHDS1 REGISTER 
é ie BIT/BITS TO a CHANGED 
1 ;NEW VALUE OF ATA IS 1 
ATA CHANGE ATA BIT 
1 NEW VALUE OF ERR IS 1 
ERR :CHANGE ERR BIT 
SR RO, J#FILLRE :MOV_2 INTO SAVED RHDST 
RHDST ;SAVED REGISTER TO CHANGE 





COUNTER 
= APPROX 450 US ON 11/50 CPU WITH 
AND PrOVIGES, ce TIME TO FILL THE 
















JOl 
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DZRIJA.PL1 $33 OPERATION INCOMPLETE - RHERI(BIT #13)0PI 


7eS2 Oe7444 000002 e ;DATA 


SEQ 0215 








7855 Oer44E OO4037 033674 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
pee8 Oe74Se O0e22e0e RHER1 CHANGE RHER1 REGISTER 

7368 927454 900001 1 1 BIT/BITS TO BE CHANGED 

78539 Oe7456 000001 1 ‘NeW VALUE OF OPI IS 1 

7869 Oe74és0 020000 OPI CHANGE OPI BIT 







7861 

7eb o27462 OS3737 OO4s44 O04S36 BIS IBATTENT, , UHSAVERE S24 j S51 ARPROPIATE.. ‘ATA’ BITS 
7364 , . :SAVED RHAS LOCATION 

¢ 






7856 027470 004037 033674 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
786? Oe7474 02220 RHMR CHANGE RHMR REGISTER 














7868 

7863 027476 900001 1 ;1 BIT/BITS TO BE CHANGED 

7870 O27500 000001 1 :NEW VALUE OF DMD IS 1 

oEo8 Oe750e 000001 DMD CHANGE DMD BIT 

787 e 

7 74 “ot mea” + AND OR AND IR BITS OF RHCS2 WILL NOT SE CHECKED 
7875 «027504 017727 1Se4%62e OO4S MRHWC ,ABSAVERE ;SAVED RHWC 





= 
<r 


MOV 
7876 Oe7Si2 017737 i5e456 OO45 MO 
7877 Oe75eD O17746 tages ny 
B 

8 


7879 27530 O4e737 600300 004516 
7880 027536 052637 OO4S16 


JRHBA, met: zovee RHBA 
dRH CSc, -(SP) GET RHC 


M 
V 
C IR 
iC aii OR pehbaeed ;CLEAR ’ 





7883 ;*COMPARE REGISTERS BEFORE WRITE WITH RESULTS AFTER WRITE 












eee Ce754e 004037 034002 JSR RO, J8COMREG ERECENT oa SAVED REGISTERS WITH 
7887 027546 O0451e SAVERE : GOOD BATA SAVED IN "SAVERE® 
7888 027550 O02ee54 WC ; TEST DATA STARTING FROM *RHWC’ 
7889 Qe75Se 000021 re 317. REGIST ae Ly BE COMPARED 
7890 027554 927560 es :RETURN TO 2$ ON ERROR 

7891 027556 027564 3$ SRETURN TO 3$ ON NO ERROR 













7804 27560 104071 28: ERROR 7 






1 ;FORCING OPI CAUSED 
7895 Oe75te 000207 RIS =< PU ; IMPROPER wie el - NGE 
7896 :GO0D DATA GIVES WHAT SHOULD SE THERE 
7897 RECEIVED DATA ares WHAT WAS THERE 
| SAFTER 3 INDEX PULSES WERE ISSUED 












7901 027564 004737 033004 38: 





;CLEAR THE °GO’ BIT 





PC, daCLDISK 
























NNDEC+ A L=DRII“A, RPG ba’ FUNCT. CONT. 


TSI-PT @ ACY11 271655) 30-NAR-76 18:59 PAGE 168 SEQ C2ié 
DZRIJA.Pil 33 PERATION INCOMPLETE - RHERI BIT #13)0PI 


7903 p RK REA KEE E RARER KARE RAK EKER EKER EEE EERE ERE EEE ESE EE EAE ES ES EES 
2904 ATEST 34 CONSECUTIVE SECTOR FORMATTING 


795 
735 .* 4G CONSECUTIVE SECTORS WILL BE FORMATTED 
7307 1% STARTING FROM CYLINDER O TRACK O SECTOR 21. 
730 1% FORMATTING WILL BE DONE BY A WRITE HERDER AND 
780 1% DATA COMMAND FOR 4 WORDS, ONE SECTOR 
ogi i AT A TIME. 
é : 
7312 1% AFTER EACH SECTOR IS WRITTEN, ’SC’ WILL BE CHECKED 
7313 % TO INSURE THAT THERE WERE NO ERRORS 
7315 © SXSERERLAF ELLER ESLASLE KLE SHER SLA LAE SELES E KLEE LSE SLE EFFL EF EASE 
7316 027570 909004 tét34: SCOPE 
7917 O27572 O12706 001000 MOV SSTACK, SP :RESET STA 
pig 027576 012737 900034 oco4so4 MOV #34, J#TSTNM : SAVE Test NUMBER 
7920 027604 004737 933004 JSR PC, J#CLDISK ;SET RI-RHCS1, R2-RHCS2 
7921 :R3-RHDS1, RY-RHER] 
7§22 GIVE Baty INITIALIZE 
7923 :SETUP UNIT NUMBER 
7324 027610 012737 000025 027544 MOV #21.,081$+12  :SET UP TO START FROM = 
7325 OS7516 O12727 090025 O27&60 MOV tel. .a#o$+6 : SEC OR aye 
See 027624 012737 Oo00SE aog4ese MOV #46. 8TMPL 46 SECTORS TO COVER 3 TRACKS : 
é a” 
7928 - s#FILL WRITE FROM BUFFER WITH THE HEADER ee 
7929 027632 : 1S: 


7931 027632 004037 032630 JSR RO, d#FLHEAD ; SAVE Set DATA IN WRFROM».. 
7932 Oe7636 002370 WRFROM LOCATION WHERE SAVED a 
7933 027640 000004 4 € NUMBER QF WORDS SAVED + . 


7934 Qe7b4e 9010000 ea ;FIRST DATA WORD 


i" W 
7937 Ode7é50 000000 : 0 FOURTH DATA WORD 


7939 ;#NOW THE WRITE HEADER AND DATA COMMAND WILL SE SETUP 
7940 027652 es: 


7942 Oe76S2 904037 O34766 . ~ JSR RO, J#RUN ;SETUP_ TO RUN FOR DATA COMMAND 
7943 027655 000000 oe ;CYLINDER 0 

7944 027660 025 3 BYTE 21. s SECTOR 2l. 

7945 027661 000 $cis BYTE Q Q 

7946 Oe7662 177774 ; -0-4 ;WORD COUNT (DATA) = 0 + 

7947 :4 HEADER WORDS 

7548 027664 002370 WRFROM :BUS ADDRESS 

7343 : STARTING pores OF DATA 

7959 ‘BUFFER = 


7951 027666 000000 C :D0 NOT INNIBIT BUS PORRESS INCREMENT 
| ~7952 027670 010000 FMT2e 316 BITS PER WORD FORM 
| ?353 :D0 NOT INHIBIT ECC CORRECTION 
| 7954 :D0_NOT INHIBIT rene al ae 

7955 027672 002344 WRIFOR :GET READY TO DO A WRIFOR 


SS ee “A fntetr* FUNCT. CONT. TST-PT 2 
DZRIIA CONSECUTIVE SECTOR FORMATTING 


033064 
056662 


004506 


he. 


002344 
009101 


152250 


1See26 
10000) 


034726 


033004 
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;WRITE HEADER AND DATA WITH 62 IN RHCS1 


PC, J¥CHECKT s CHECKS DVA,RDY,MOL,OPR,DRY AND VV = 
THAT ALLS Status Sits are = 0 
.CPHALT cayor CONTINUE Te ei IF NOT 





JBRPYVEC, IRPVEC eet, att VECTOR ADDRESS 
TIME1’ IF P-CLOCK IS PRESENT 
‘oR 0. * TIME?’ f P-CLOCK IS NOT THERE 





LL _ONLY SAVE 
CURRENT AVL INDER ADDRESS 
AND LOOK AHEAD REGISTERS 





2 HHRIEOR -(SP) GET READY TO MOVE COMMAND 
#GO'IE, (SP) :GET READY TO SET GO AND 

-ENABLE INTERRUPT 
‘nis buted $69 WITH 

2 IN RHCS1 FOR WRITE HEADER AND DATA 

Atta INTERRUPT ENABLED 
3R1, RO :SAVE RHCS1 DURING ABOVE OPERATION 
aRS.RS :SAVE RHDS1 DURING ABOVE OPERATION 





;#O0NE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 





;WAIT FOR ROY BIT TO SET 

:WAIT FOR RHCS1 REGISTER 

WAIT FOR ROY BIT IN RHCS1 REGISTER 
ALLOW 16950 MISRO SECONDS 

ROY MUST SET SETWEEN 

:8500 AND 25400 MICRO SECONDS 





ey: ONE MORE SECTOR HAS SEEN WRITTEN 
C’ WILL BE CHECKED TO MAKE SURE 
BaNG ERRORS OCCURED 





@RHCS1 2acsl iGET RHCS1 
SC, ae0S! 3 


18 


SET 
: BRANCH Ma “SPECIAL CONDITION” NOT SET 


3 
C4 SerUINES SREAD & AVE ALL RHI] & RPOY REGISTERS 


; THERE * Bs AN UNDEFINED ERROR AFTER 
iA WRITE HEADER AND DATA 





7#A SECTOR HAS BEEN FORMATTED = 
:#THE HARDWARE WILL BE CLEARED A 
;*CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 








PC, deCLOISK per ee OE RE-RHCS2 
;RS-RHOS1, RY-RHERI 
GIVE PY-11 INITIALIZE 





030022 
030024 


030040 


o30044 
030050 


o300s2 


+34 


013705 


p004i0 
105037 


105237 


005337 
001270 


MNDEC=11-DZRJJ-A, RPO4/S/6 FUNCT 


TST-PT 2 
OZRIJA.P11 CONSECUTIVE SECTOR FORMATTING 


027644 
002026 
027644 
027660 
027644 


027661 
OO4ES2 





aa 


4$: 


S$: 
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MACY11 27(855) 

:;SETUP UNIT NUMBER 

:GET SECTOR TRACK WORD 

dpm IT 55 REX TRBCK (WHOLE TRACK DONE) ? 
RESTORE cecToR TRACK FOR DATA 

RESTORE SECTOR TRACK FOR “RUN” ROUTINE 

: CHECK FOR 4&6 SECTORS COMPLETED 


;SET SECTOR = 0 FOR wis WRITTEN 
s INCR Mist FOR Paar WRITTEN 


TQ 
TINCR TRACK FOR THE BUN" ROUTINE 


;ARE 46 SECTORS DONE ” 
:CONTINUE FORMATTING IF NOT 


;GO ON TO NEXT TEST IF SO 





rsa Se “A * pa ‘S/S FUNCT. CONT. 
ll CONSECUTIVE SECTOR TEORNATTING 










MACYLIL 27(655) 30-NAR-76 18:59 PAGE 171 


j SEEEOAETASEROERESSSEEOERERSS REAR EERUERESEREEERENEER SERIE ESOS 
T 35 OPERATION INCOMPLETE - RHERI (BIT #13)0PI 


aewe 


eee ee ere ee re ee Ts 


ie ee 


THIS WILL TEST THAT OPI DOES NOT SET WHEN THREE NORMAL 
INDEX PULSES ARE ENCOUNTERED IN A READ COMMAND 


FIRST 46 CONSECUTIVE SECTORS WILL BE FORMATTED 
STARTING FROM CYLINDER O TRACK Q SECTOR 21, 
FORMATTING WILL BE DONE BY A WRITE HEADER AND 
pare at FOR 4 WORDS, ONE SECTOR 


THEN A READ HEADER AND DATA WILL BE DONE 
FOR CYLINDER Q TRACK O SECTOR 21 FOR 
11960 WORDS (260. x22xX2+260+260) WITH BUS 
ADDRESS INHIBIT SET. 


AT THE END ALL REGISTERS WILL BE CHECKED. 


gy EERE RA ALLER ER ERE R AREA ERE EEE A EAE EA REE REAR EEE EEK ERE RELA EEERS 
T35: SCOP 


MOMMOOOCL 


MOV #STACK, SP sRESET STACK 

MOV #25, a8TSTNM :SAVE TEST NUMBER 

Isr PC; JHCLDISK SET RI-RHCS1, R2-RHCS2 
: R3-RHD E 


3S IT ER 
MOV #21. ,981$+12 ;SET_UP TO START FROM 
ov #21.) d8eS+6 ;SEC ‘ 
MOV #46. ,D8TMP1 346 SECTORS TO COVER 3 TRACKS 


;*FILL WRITE FROM SUFFER WITH HEADER 


JSR RO, J#FLHEAD ; SAVE_HEADER DATA IN _WRFROM 
WRF ROM s LOCATION WHERE SAVED 

4 NUMBER OF WORDS SAVED 
1c000 FIRS DATA WOR 

21 3 SECOND DATA WORD 

fe ; THIRD DATA WO 

0 FOURTH DATA WORD 


;#NOW THE WRITE HEADER AND DATA COMMAND WILL GE FILLED 


JSR RO, J#RUN dog 4 TO RUN FOR DATA COMMAND 
0 CYLINOER O 

BYTE 21. SECT OR 21. 

BYTE OQ TRACK 0 

-0-4 t MORD COUNT (DATA) = C + 


4 HEADER WORDS 

















DIRIT-8, RFON S. FUNCT. CONT. TST-PT 2 MAC\L1 27 S85) QO-NAR-76 18:59 PAGE 17 3f5 2220 
“3s OPERRTION INCOMPLETE = RWERI (SIT 813/0F! 
S2S2. 030148 202370 WRF ROM BUS ADDRESS 
$233 iS BEIENS AGDRESS C oF DATA 
S035 ;BUFFER = WFR 
BOSS 020150 900000 0 :00 NOT INHIBIT BUS ADDRESS INCREMENT 
Bose O30iS2 010000 FMT22 16 SITS PER WORD FORMAT 
$o3* 00 NOT water ECC CORRECTION 
S238 $20 NOT ENADEIT HEROEE COMPARE 
SoS$ 030184 002344 ARIFOR GET READY 0 DC_A WRIFOR 
g230 SWRITE HEADER AND DATA WITH &2 IN RHCS! 
8L51 
S232 
S2S3 030158 204737 033064 JSR PC, JaCHECKT s CHECKS ova, ROY ,MOL,OPR,ORY AND yv = 1 
5238 ANS THAT L stats BItS aRE = 0 
BOSS O301S2 04400 OSeeb2 TYPE =, CPHALT : CANNOT oNtinge | ESTING IF NOT 
$36 5351 EE 900000 HLT :STOP TEST 
S098 030170 O13??? OO4S0E 151770 MOV TBREYVEC, TRPVEC ;SET RPOY VECTOR ADDRESS 
S033 : :TO ‘TIMEL’ IF P-CLOCK IS PRESENT 
5150 s0R TO TIMES® IF Fe -CLOCk TS NOT THERE 
S101 :* TIME’ WILL ONLY SAV 
8152 ;CURRENT CYLINDER ADDRESS 
e125 AND LOOK AHEAD REGISTERS 
$155 
S15 03017 01374 002344 MOV TRWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
8107 O3ded2 oS2716 000101 gis eGONTE, (SP) :GET READY TO SET GO AND 
8158 3 sENAGLE INTERRUPT : 
Si0$ 030206 O12877 151766 MoV (SP)+,9RHCS! ;G0_WITH 
E116 : $2 IN RHCS1_FOR WRITE HEADER AND DATA 
Elli sige” sHITH INTERRUPT ENRSLEC 
Sile 030232 911100 MoV aR1, RO SAVE RHCS1 DURING ABOVE OPERATION 
E13 530214 011305 MoV aR, RS :SAVE RHOS! DURING ABOVE OPERATION 
44% 
| Bis ;#ONE REVOLUTIONS1€670 MICRO SEC, ONE SECTOR=760 MICRO SEC 
8117 O30216 104412 WAT sWAIT FOR RDY BIT TO SET 
Siig 030225 02200 RHCSL rWelT FOR RHCS1 REGISTER 
81:8 030222 000200 RD) ;WAIT FOR RDY BIT IN RHCS1 SEGISTER 
| B10 030284 003237 1695 TALLOW 18950 MICRO SECOND 
Bie: Os0ze6 OOi515 S45 ROY MUST SET BE 
+2 38500 AND 25400 MICRO SECONDS 
-= 
| BLES s#NOW ONE MORE SECTOR HAS BEEN MAZTTEN 
| §les “se BE CHECKED TO MAKE SURE 
| ELEe eNO ERaSRE OCCURED 
| BieE 920830 017737 151744 o0ze6E MoV aRHCS! geCSi =; GET_RHCS! 
| 8129 930226 032737 100000 .Odectbe SIT oats! 71S Sc SET ? . 
| §130 930255 O01405 —— SEQ tf : BRANCH a ESPECIAL CONDITION" NOT SET 
| 8232 O30e4%6- OO4737 034726 J5R PC, JePUTREG READS 5 LL RHI] & RPOY REGISTERS 
| §lse 030252 104072 ERROR 72 THERE wis AN ONDER TNED ERROR AFTER 
cies 3A WRITE HEADER AND DATA ; 
| 6:35 020254 300137 ¢30510 IMP . TST36 ; “THIS IS A SETUP ERROR AND ‘OPI’ TEST CAN'T CONTI 
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HER] (BIT 8 


;G0 ON TO NEXT TEST 
‘;#ONE.SECTOR HAS BEEN FORMATTED NOW, 


raTHE HARDWARE WILL BE CLEARED AND 
s*#CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 


JSR PC, DBCLDISK :SET RI-RHCS | fectHcse 
; * gRI-RHDS1 HER 
+ serve Reedy INTEL IZE 
:SETUP UNIT NUMBER 
Moy guis+12, RS - GET SECTOR TRACK WORD 
CMP ag? RS Hs. IT 22 (WHOLE TRACK) ? 
BEQ :YES...00 NEXT TRACK 
MOV ae 381$+12 INO. -RESTORE SECTOR TRACK FOR DATO WRITTEN 
MOV RS aals+6 *RESTORE SECTOR TRACK FOR “RUN” ROUTINE - 
SR § :CHECK FOR 4& SECTORS RSMPLETED 
CLRE = Dul$+12 :SET SECTOR = 0 FOR OATA WRITTEN 
INCR = g8] +13 INCOR TRACK FOR THE “uy ROUTINE 
CLRE = DReS+E :SE¥ SECTOR = 0 FOR DATA WRITTEN 
INCS  aeeg+7 :INCR TRACK FOR THE "RUN" ROUTINE 
DEC DeTMPL SARE 4& SECTORS DONE ? 
BNE 1$ : CONTINUE IF NOT 


s#NOW SE SECTORS HAVE SEEN FORMATTED 


;*RESD HEADER AND OAR FOR 46 SECTORS=11960 WORDS 
:#HITH BUS ADDRESS INHIBITED 


JSR PC, 28CLOISK S67 Ri-RHCSI R2-RHCS2 
R3-RHDS1, . RY-RHER! 
iCIve RH-1) RINT Ta IZE 
:SETUP UNIT NUMBER 


;#FILL READ HEADER AND DATS COMMAND 


JSR RO, DaRUN SETUP ode 8 RUN FOR DATA COMMAND 
- sCy LIN 
BYTE 21. $36C10 5 21. 
BYTE Q ; TRACK O 
-11956.-4 WORD ou INT (DATA) = 11956. 
:4 hata WORD 
REINTO ;BUS ADDRESS 
STARTING ROORESS OF DAT 
id FER = REINTO 
BAY NHIBIT BU “ADDRESS INCREMENT 
FMT22!EC! 316 BITS PER WORD FORMAT 


ee ee ee ee Hs ee eee 
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s INHIBIT ECC CORRECTION 
:00 NOT INHIBIT HEADER COMPARE 
REFOR :GET READY TO DO A REFOR 
READ HEADER AND DATA WITH 72 IN RHCSL 
JSR PC,QaCHECKT —-; CHECKS DVA,RDY,MOL,DPR,ORY AND vv = 1 
- SOND THAT ALL status BIts ARE = 0 
TYPE CPHALT :EBNNOT C0 CONT INGE TeeTinG IF NOT 


EST 
MOV . JBRPYVEC, DRPVEC SET pian yer TOR ADDRESS 
310 *TIMEL’ IF P-CLOCK 1S PRESENT 
OR TQ TIME?’ ‘“ Pee OCk IS NOT THERE 
; TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


MOV QeREFOR,-(SP) GET READY TO MOVE COMMAND 
sis aGOrlre, {SP} :GET READY TO SET GO AND 
; sENAGLE INTERRUPT 
MOV (SP)+, RHCS) oarTH 
ze INR HCS1 FOR READ DATA 
NTERRUPT ENABLED 
MOV 3R1,R0 swith RHC URING ABOVE OPERATION 
MOV 3R3,RS : SAVE RHOS1 DURING ABOVE OPERATION 


;#TIME IS NOT IMPORTANT 


WAT :WAIT FOR RDY BIT TO SET 
RHCS1 :WAIT FOR RHCS1 REGISTER | 
RD} ;WAIT FOR ROY BIT IN RHCSI REGISTER 
siee0. TALLOW 416800 MICRO SECONDS 

41680: :ROY MUST SET SETHEEN 


00 AND 178240 MICRO SECONDS 


ey THAT ALL 11960 WORDS HAVE seen READ 
#°OPT’ WILL BE CHECKED TO BE NOT SET 


DRHER], J8ER1 ;GET yy 


MO\ t 
BIT s0PT, GERI 31S °OP}” “sf ’ 

BEG 5$ :CHECK ° NOT ‘ 

TSR Be dePUTRES READ 8 Pie ALL Rud 8 RPOY REGISTERS 
ERROR 974 ;READ HERDER ane Dat 


3#°SC* WILL BE CHECKED 
MOV JRHCS1, geCS1 ;GET RHCS) 


BIT  #Sc,aecsi 315 *SC* SET? 

BeOS 3 SONTINUE TESTING IF NOT) | 
JSR PC, SNPUTREG © READ 8 SAVE ALL RM11 § SPO4 REGISTERS 
ERROR 72 SREAD HEADER at 


AND 0 
FOR 11560 WORDS, THAT IS OVER THREE 








ee —_—— = —EE eee eae 


& a ane ee a ee ee ee a tae ne ee ee ee ee a nt ee i a tn ne SPE ce cae Se Ee ee ere ar: Seeman 
| MNDEC=21-D2RIJ-A, REO4’S 6 FUNCT. CONT, TST-PT 2 sO MACYLL 271655) 3O-MAR-76 16:59 PAGE 175 -  SE0 0223 
| DORIIA.PLL $35 ~ “OPERATION INCOMPLETE - RHERI (BIT Bl3)0PI | 
aie s INDEX PULSES, CAUSED AN UNDEFINED ERROR 
| 8348 030810 7S: sCONTINUE WITH THE NEXT TEST 
\ 


oe A ne a 











y 
& 90100 


8278 030530 005037 030636 
8e7S9 030534 905937 030654 
8280 050540 05037 030664 


82e8e O30544 012737 900023 








8286 030552 004737 033064 


8e88 O3055& 104400 OS&bE2 
Be8S O0305&e 000000 


BeS1 030564 013777 004506 





10 
000036 
p04737 033004 


MNDEC=11-D2RI7-A, RPOW/S/S FUNCT. CONT. 2 
PRITA.PL 35 OPERATION INCOMPLETE - RHERI (BIT #13)0PI 


O04SO4 


001209 


TST-PT 


Se a ean ceeetion Teet Gee ne nnnanneaees 
;#TEST 3 


ee eee ee ee ee ee ee ee ee ed 


WON ON AOR iO i ote 


Sr 4 Selita 
SCOPE 


tira; 
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6 HEAD SELECTION TEST ERR & TRE 

Ms irae. pee Se — LOGIC SNLY. A WRITE 1 ee AND 
DATA COMMA 0 EACH TRACK FROM O TO 18 0 t ) 
CYLINDER aati ™ 
THE DATA ON EACH eertoR IS UNIQUE. THE LEAST SIGNIFI 
§ BITS GIVE SECTOR THE NEXT LEAST SIGNIFICANT S BITS 
GIVE TRACK THE NEXT & BITS GIVE CYLINDER 


AEN BEAD HEADER AND DATA IS DONE FOR THE ABOVE AND DATA 
whe é 4 





~ 





CANT 


BETNEEN THE WRITE AND READ ONLY "ERR" AND "TRE" ARE CHECKED 


QN AN ERROR IN THE READ HEADER AND DATA LOOPING WILL BE 
ONLY ON THE ERROR SECTOR READ 









MOV. so WSTACK,SP . —s«S RESET STACK * \ 
MOV #36, a8 TSTNM :SAVE TEST NUMBER 
JSR —PC,@NCLDISK SET RI-RHCS1,_R2-RNCSE 

RS-RHOS1. R4RHERI 






‘GIVE Reedy" INITEALIZE 
:SETUP UNIT NUMBER 


a ng FOLLOWING CLEARS ARE im INI TIAL ES ee non CYLINDER 9 
d8i$+le ;START WITH SECTOR/TR = 0 
rR 3eess15 ;START WITH DATA nf eg 
CLR J8s$+b ; START WITH 0 FOR COMMAND 
MOV #15. , a8$TMPL 319 TRACKS TO BE WRITTEN 


;*THIS GETS THE HEADS TO CYLINDER 0 


















ISR. PC,UsCHECKT = CHECKS va, ROY MOL, DPR. ORY AND WV = 

*AND THA staTué arts aRE = 0 
TYPE | CPHALT : CANNOT conTINCe TeerenG IF NOT b, 
HALT :STOP TEST 










Moy DWRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 
370 *TINeL IF PRCLOCK 1s PRESENT 
NE@* TF BoCLOCK IS NOT THERE 
C ONLY SAV yee 







ce Q, 
: CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


v a¥FE CAL] -(SP) ;GET READY TO MOVE COMMAND 
§ GOrTE. (SP) § 3GET READY TO SET GO AND 


cocnwn como wc 
at tet ot et GIs 
. =) 


0+ <0 +p <p 


MOwMwwmncnmm 
WII GIGIGIGIGIGIGIGI 


TUTOTUITUTUTU eo o-oo 
£60 0.000 US Gotu Ow 


—— 


cococo cocoa 
GUCCI GIGI 


COCHIONTONGN 
4torur- Ow 





030602 


030825 


030624 
030624 


630542 


030644 


030644 © 


B30e4 


O30656. 


O30656 


MNDEC*12-D2RII-A, RFOW/S’§ 
cRIJA.P1) 


138 


012677 


A015 


909000 


004037 
000000 


FUNCT. CONT. 








GOe 


rST-PT 2 MACY11 27(655) 30-NAR-76 19:59 PAGE* 177 


ue aD SELECTION TEST ERR 8 TRE 


181372 


033004 


032630 


032654 


034766 


ENABLE, INTERRUPT 
MOV (SP)+, dRHCS1 ;G0 WITH 


6 IN RHCS1 FOR PECAL IBRATE 
:WITH INTERRUPT ENABLED , 
45), 

WAT i WAIT FOR ORY BIT TO SET 
RHDS1] ;WAIT FOR RHDS1 REGISTER 
DRY ;WAIT FOR DRY BIT IN ait REGISTER 
25000 3AL SECONDS 
25000 sORY MUST 


00 AND SO0d00 MICRO SECONDS 


JSR PC, JeCLDISK S67 Ri-RHCS 1 R2-RHCS2 oe 
=R3-RHDS1, RY-RHER 
: GIVE eel INITIALIZE 
SETUP UNIT NUMBER A 
4 
. | 
:#FILL WRITE FROM BUFFER WITH HEADER | a 
ISR RO, J#FLHEAD :SAVE HEADER DATA IN WRFROM 
WRFROM :LOCATION WHERE SAVED 
4 : NUMBER OF HOBOS SAVED R 
10000 ‘FIRST DATA WORD Se 
<O#400>!0 CE CONE DATA WORD ne | 
0 sTHIRD DATA WORD ar 
0 “FOURTH DATA WORD 
:4FILL WRITE FROM BUFFER WITH DATA i 
JSR RO, 38CLAREA : CLEAR 258, WORDS, FROM WRFROM+10 Vo 
WRFROM+10 as volte ARTING FROM WRFROM+10 
<3. #2000>2<0. «40> #0 Aa SFILL WITH (0. #2000>!<0. *40> ia 


;*THE WRITE HEADER AND DATA COMMAND WILL SE FILLED 


JSR RO, d8RUN ;SETUP_TO RUN FOR DATA COMMAND 
Q ;CYLINDER 0 
BYTE OQ 3 SECTOR 0 
BYTE OQ ; TRACK O 
“256. 4 ;WORD COUNT (DATA) = 256. + 
74 WEARER WORDS 
WRFROM ;BUS_ ADDR 
ST ARTING AODRESS OF DATA 
;BUFFER = WRFROM 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT2e 316 BITS PER WORD FORMAT 


ee oe 
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MNOEC*11-D2RIJ-A, RFOWS/6 
Pil 


* 


030876 


030700 


030704 
620710 


030712 


030720 
030724 


030730 


o307 3 


o30744 


030746 


03075e 
030769 
030762 
030770 


030772 





FUNCT. CONT. TST-PT 2 
+36 aba SELECTION TEST ERR & TRE 


902244 WRIFOR GET Nea DY TO DO A WRIFOR ae 
+ WRITE ubseee AND DATA WITH 62 IN RHCS! 
004737 033064 ISR PC, DHCHECKT : CHECKS | ove ROY, MOL DPR,DRY AND VV = 
aLL status sits are = 0 
104400 O58662 TYPE §_,CPHALT NOT cof INCE teetinc IF NOT 
900000 HALT ‘STOP TEST 


913777 OO4S06 151246 MOV DBRPYVEC ARPVEC ;SET RPOY yeeros RODRESS 


013746 002344 MOV @SWRIFOR,-(SP) ;GET READY TO MOVE commano 

OSe71& 900101 BIS aGO!TE, (SP) “\3GET READY TO SET GO AND. 
GNARL S INTERRUPT 

Ole677? 151244 MOV (SP)+, JRHCS1 $00. 4 


ey Re YOUTEN ¢ 
#MI xX TI 


AD 
teSUITCH + “3 roe Ath TIME ALLOWED = SECTOR (FIRST CASE) 
i* al art HERE HALT PROGRAM AFTER ERROR Mae 


104412 no 
002200 RHCS1 
000200 

003162 1650 


001572 830. 


;*NOW SECTOR O OF ONE TRACK HAS BEEN WRITTEN CHECK COMPOSIT 
;*ERROR BIT TO BE SURE o ERRORS HAPPENED 


peSAVE neato tere Pnbn SAVE TABLE 


004737 o24726 SR PC, aaP 
032737 o4ocoo 002304. BIT oped 
001004 BNE 

032727 o40000 o02262 BIT STRE, DacS1 
001491 , BEQ 4$ 

LOYOGE 38: ERROR 66 


MACYL1 27¢ 
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BS NO NOT T NHtatt Se OERe SPARE 





TO ’T Lt, IF P-CLOCK IS PRESENT 

OR TO ’TIMEe” IF P-CLOCK IS NOT THERE 
;* TIME’ WILL ONLY SAVE 

;CURRENT CYLINDER ADDRESS 

AND LOOK AHEAD REGISTERS 






N RHCS1 FOR WRITE HEADER AND DATA 
ath INTERRUPT ENABLED 


456”? MICRO SEC., ONE SECTOR = 760 
ME ALLOWED = ONE REVOLUTION + HE 





;WAIT FOR ROY BIT TO SET 
WAIT FOR RHCS1 REGISTE! 
;WAIT FOR_ROY BIT IN ECONOS REGISTER 













Y 
7600 AND 25400 nico SECONDS 










;ANY DISK ERRORS 
:BRANCH IF YES 
ANY RH ERRORS 
;BRANCH IF NO 


; SOME ERRORS OCCURRED 
; WHILE DOING WRITE HEADER 








Sieh 


031044 


031052 
31052 


D3i062 
031064 


03197; 


cilia, RPO4/S/6 FUNCT. CONT. 
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HEAD SELECTION TEST ERR & TRE 


000400 rete a 4; 
000400 030664 


001200 SsSTl: 


SSTe: 


SST3: 


SST4: 


;AND DATA 
;*THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING 
ADD #400, 081$+12 ;NEXT TRACK FOR HEADER 


aod 840, d#2$+10 :NEXT TRACK FOR DATA 
adD #400, a#3$+5 =NEXT TRACK FOR COMMAND 


DEC OeSTMP 1 ;COUNT 19 TRACKS 
BNE i$ 
itive FOLLOWING CLEARS att B i FOR READ een AND DATA 
SLR deSST3+le ;START WITH Been on’ On ACK = 0 
CLR aeeeTae10 START WITH DATA = 0 
CLR aaeSSTS+6 ‘aTBaT WITH O FOR COMMAND 
JSR PC, daCLDISK ee R1-RHCS1, Re-RHCSe 


VE 
‘SETUP UNIT NUMBER 


;xSET UP FOR READ HEADER AND DATA G 
Mov #15.,a8$TMPl | 319 TRACKS TO BE READ af 


;*#FILL READ INTO BUFFER WITH ALL ONES 


JSR RO, 28CLAREA :CLEAR 260. WORDS FROM REINTO 
REINTO © : STARTING FROM REINT 

260. :260. WORDS 

=|: FILL WITH x a 


MOV deSSTe, saSLPERR ;SET LOOP POINT 
;*#FILL. WRITE FROM BUFFER WITH EXPECTED HEADER 


JSR RO, d#FLHEAD SAVE HEADER DATA IN WRFROM 

RFROM ;LOCATION WHERE SAVE 
:NUMBER OF WORDS SAVED 

ames ;FIRST DATA WORD 


Q 
0 FOURTH DATA WORD 


;#FILL WRITE FROM BUFFER WITH EXPECTED DATA 


RO, J#CLAREA CLEAR 256. ailOR0S, FROM WRFROM+<4%2> 
1256. wokbs 


JSR 
WREROM+< 4x2) 
0, #2000) !<O#40>!0° 


ARTING FROM WRFROM+<4#2> 
sFILL WITH <0.#2000>!<0 









#40) 10 








otia 1 pee, RFO4W/S/6 FUNCT. CONT. TST-P 
HEAD SELECTION TEST ERR & TRE 


CUNO ONC Onn 
0 = +b 
Our coumer-O 


cococococo coco 
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SEQ 022e 





;*FILL COMMAND FOR READ HEADER AND DATA 





SSTS: 








JSR RO, J#RUN ;SETUP_TO RUN FOR DATA COMMAND 
0 ;CYLINDER 0 


‘BYTE 0 «RECTOR 0 











BYTE O 0 

-256.-4 ;WORD COUNT (DATA) = 256. + 
:4 HEADER WORDS 

REINTO :BUS A 








> 
: STARTING ADDRESS OF DATA 
:BU =R 


NTO 
0 me ;D0 N NOT INHIBIT Bp oe Eo poerere: 
ECI!FMT2e ;16 BIT 2 PER WORD F 
if NHIBIT ECC CORRECTION 
T INHIBIT eee: COMPARE 
REFOR RET NREADY TO DO AR 
- $READ HEADER AND DATA WITH 72 IN RHCS1 












JSR PC, J8CHECKT s CHECKS OVA, RDY MOL, DPR “gy! AND VV = 









SAND THAT ACL status BITS ARE = 0 | 
TYPE —_, CPHALT EONNOY CONTINUE TESTING IF NOT fey 4 
HALT :STOP TEST ah 


MOV DBRPYVEC , IRPVEC 9eT RPOW VECTOR ADDRESS 
310 ’TIMEi’ IF P-CLOCK IS PRESENT 
3OR Pre att ce IF An as IS NOT THERE 
CURRENT eYLINDER R BDDRESS 
SAND LOOK AHEAD REGISTERS 











MOV DeREFOR.-(SP) GET READY TO MOVE COMMAND 
BIS #GOlIE, (SP) *GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,JRHCS1 $60, WIT TH 
72 IN RHCS1 FOR READ DATA 
swith INTERROET ENABLED 















WAT ;WAIT FOR ROY SIT TO SET 

RHCS1 sHATT FOR RHCS1 REGISTER 

RDY ;WAIT FOR_ROY BIT IN RHCS1 REGISTER 
1650. ; ALLOW 18500 MICRO SECONDS 

890. ‘ ROY MUST SET BETWEEN 






37600 AND 25400 MICRO SECONDS 


;*#NOW SECTOR O OF ONE TRACK HAS BEEN READ CHECK COMPOSIT 
:*ERROR BIT TO BE SURE NO ERROR HAPPENED 


» #SAVE REGISTERS IN SAVE TABLE 
5sR PC, JBPUTREG 
































MNDEC=11-DZRJJ-A, RFO4/S/’S FUNCT. CONT. TST-PT 2 MACY11 2: .655) 30-NAR-76 18:59 PAGE 181 SEQ 0229 
DZRIJA.Pi1 $36 HEAD SELECTION TEST ERR & TRE 


8518 d3iced O3e737 40000 002304 BIT #ERR, d#0S1 ;ANY DISK ERRORS 
8519 OQ3le26 00:004 BNE 10$ SBRANCH IF YES 
8520 931239 Q3e737 O40000 O02eb2 BIT #TRE,deCS1 SANY RH ERRORS 
8521 031236 001491 BEQ 11$ BRANCH IF NO 


8S22 

8523 031240 104066 108: ERROR 66 ;SOME ERRORS OCCURRED 
8524 sWHILE DOING READ 
Besp HEADER AND DATA 

82 


8527 :#NOW THE READ DATA WILL BE COMPARED DATA IN EACH SECTOR 
g528 :*IS UNIQUE IF PROGRAM IS HALTED ON ERROR THEN LOCK AT 

5523 ; #RHOST 10. cer, MYA? TRACK IS IN ERROR. LOOK ING AT THE DATA 
8530 *BITS NO 4 IN GOOD DATA ALSO GIVES TRACK NUMBER 
e331 :*IN GOOD cata Eni a8 GIVES TRACK NUMBER 

8533 o31242 118: 

9534 


8535 O3le4e ange 035032 wan ROM RO, d#COMPAR ; COMPARE TWO_BLOCKS OF MEMORY 


25 ; 
8540 031256 O31264 13$ RETURN TO 13% ON NO ERROR 


8543 seas 4.5.6,7,8 


8544 oO31260 104067 128: ERROR 67 :READ HEADER AND DATA 
gs45 031262 00207 RTS PC 

S5ue ‘FE aD SELECTION ERROR 
8547 | :DATR eros GIVES NATURE 


FOR THE 
8550 iEOgee " EBOER HORDS 
B51 STHE BITS 4,5,6,7,8 
e556 GIVE THE TRACK’ NUMBER 
B55 ;#NOM INCREMENT TO READ NEXT TRACK 
S55E 021264 O2737 OOOHOD 031104 138: ADD #400, 9eSST3+12 ;NEXT TRACK FOR HEADER 
e557 Osieve Obers7 OO004D O3lle2 ADD #40, 2eSSTY#10 NEXT TRACK FOR DATA 
e558 031300 Obe737 O00400 031132 ADD #400, d8SSTS+ == ;NEXT TRACK FOR COMMAND 
B5E0 03130 005337 001200 DEC QRS TMP ;COUNT 19 TRACKS 
e561 O31z1e O0i001 BNE SS 
6523 021314 OO0Mde BR = sTST3? ;T0 NEXT TEST 


:JUMP BACK 





BSES 031316 000137 031052 aesste 
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3 HEAD SELECTION TEST ERR & TRE 







pp RRRRRR RARER ERE ERE KH KER AREER EEE EERE REE REE EEE REAR EEF ERED 
s*TEST 37. DIFFERENCE LINES 


~~ 


St ec ee ee ee at ae as ee me ae 


ar ROK OK OE ok ote 


—t+ 


- 
-. 


COCO CO COCO CDCD aD 
Com PmHemmm rd 
Ser eee wee et ed ed es 


w0o NOP Ur Gotu. 


re oe ee 


4 et ee ‘ees AND DATA WILL BE DONE ON ALL CYLINDERS 
UP T /Sl2. ON SECTOR ZERO, TRACK ZERO. THE DAT9 WILL 
SE THE” “PYLINOER NUMBER 


THEN A_RECALIBRATE AND READ HEADER AND DATA WILL BE DONE 
ON CYLINDERS 0,1,2,4,8, 16, 32,64, 128,256 & Sle. 


ce WILL BE CHECKED. 
N AN “epee LOOPING WILL BE DONE ON THE 


Rea ONL 
OL Sagal, ye uaa cite tem alata me pect gener CIR ae 
MOV aSTACK, SP sRESET STACK 
MOV #37, a8TSTNM :SAVE TEST NUMBER 
ISR PC, J#CLDISK sSET R-RHCS, R2-RHCS2 
*R3-RHDS! Rl 
GIVE HL INITIALIZE 
:SETUP UNIT NUMBER 
ISR PC, J#CHECKT :C HECKS DVR RDY.MOL,DPR,DRY AND VV = 
?AND THAT ALL StaATUS BITS ARE = 0 
TYPE  ,CPHALT i RONNOT MCONTINGE Teering IF NOT 
HALT :STOP TEST 


:4SET 4 UP To INITIALIZE TEST FROM CYLINDER 0, TRACK 0, 
Bee Fo oooo. aeisei0 CYLINDER HEADER DATA 

CLR 282+ : DAT 

crR 3825+4 SCYLINDER COMMAND RHCA 


-*THIS IS TO GET THE HEADS TO CYLINDER ZERO 
Mov DRRPYVEC, DRPVEC sSET, RF OS VECTOR ADDRESS 
*TIMEL’ IF P- =CLOCK IS PRESENT 
tok TO TIMES’ IF P-CLOck IS NOT THERE 
L ONLY SAVE 


CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


MOY aaPECALT, (SP) :GET READY TO MOVE COMMAND 
Bis ONTe, (Sp) “GET READY TO S T 60 AND 
oaths INTERRUPT 


MOV (SP)+,ORHCSL = 360 W 
& IN RHCS! FOR RECALISRATE 
shirh INTERRUPT ENABLED 


WAT 





sWAIT FOR DRY BIT TO SET 
























MNDEC- ii -DZRIJ- -4 REOS S. : FUNCT. { 
ofFesenie Sines 


DERITA.P I 


8625 . 
S630 031426 
8631 931432 
8632 

8633 

$234 

86235 031434 
8636 031442 
8637 . 
8628 o31444 
e533 i4s2 
640 


BE 
8647 

g642 0 

S650 021456 
S651 O3i462 
8655 31469 
8653 O51 


t3? 


02222 

A200 
aura 
O&0850 


ST4Rq 


012737 
000403 


012737 


004737 


OO4E36 


00100: 


000401 


033084 


032630 


032654 


034766 





5 5 RHLAARRALRLRAALLERE LARS RAERAE REEL ERE L ALLL LARALA AERA EEA ERE EE EE 


a 


33: 
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RHDS1 ;WAIT FOR RHOS1 REGISTER 
ORY ;WAIT FOR ORY att IN BHD S REGISTER 
25000. ;ALLOW 250000 MICRO SECONDS 
eS00c. ;ORY MUST SET BETWEEN 





BETWEE 
;00 AND SOO000 MICRO SECONDS 
;#THE DRIVE TYPE IS CHECKED at ' THE APPROPRIATE MAX. 
;*#CYLINDER DIFFERENCE IS SET U 


TST QeRPOG ; TEST FOR_RPOS ORIVE 
BEQ L4§ TR REAT UNIT AS AN RPO4 
TREAT AS AN RPO 


MOV #513. ,aaSTMP1 ate CYLINOERS 

SR iss ; CONTINUE 

MOV #257.,ae8$TMP1 3257 CYLINDERS 
;CONTINUE WITH TEST 


JSR PC, daCLOISK ita R1-RHCS1, eet 


;#FILL WRITE FROM SUFFER WITH HEADER 


JSR RO, J#FLHEAD ;SAVE_HEADER DATA IN WRFROM 
WRF ROM 3h adele. WHERE SAVE 

R e aMicks SAVED 
10000 Pies A WO 


Ooo 

err 
x 
~o-4 
a 
~ 
YD 
© 
oO 


FOUR H DATA WORD 
;*FILL WRITE FROM BUFFER WITH DATA 










ISR RO, QSCLAREA :CLEAR 255. WORDS, FROM WRFROM+10 
WREROM+10 ; STARTING FROM WREROM* 18 
256. :256. WORDS 

FILL WITH O 


;#THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 


JSR -—-RO, JaRUN :SETUP 19 RUN FOR DATA COrMANG 
sCY 

“BYTE 0 HSE OR 0 

-BYTE OQ ; TRACK O 
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Pil t3? D{FFERENCE LINES . 


DZRIIA. 
8674 031520 
8676 031522 


8679 031524 
8680 931526 


8683 031530 


868" 031532 


8$89 031536 
8690 03154e 


8632 031544 


700 931552 
8701 031556 


703 031562 


177374 
002370 


CO0000 
010000 


002344 


004737 
10440 


000008 - 


013777 


013746 
052716 


012677 


i. ay 


LO441e 


002354 


00S237 


001316 


033064 


OS&&ée. 


004506 


002344 
000101 


150412 


021466 
031506 


& 39 





1S0414 


=_— 


N02 


-256.-4 ;WORD COUNT (DATA) = 256. + 
WORDS 


:4 HEADER 
WRF ROM ;BUS ADDRESS 
ia ERLANG a RESS OF DATA 
UFFE M 


9 :D0 NOT INHIBIT BUS pODRESS INCREMENT 
EMT22 -16 BITS PER W 
68 NOT ts cc SORRECTION 
} $09 NOt HIBIT HEADER. ¢ ARE 
WRIFOR REA ve TO DO A WRIFO 
WRITE iste AND DATA RITH 62 of RHCS1 
ISR PC, JUCHECKT ;CHECKS DVA,RDY,MOL ,DPR,DRY AND VV = 
AND THAT ALL StaTUS BITS ARE = 0 
TYPE §, CPHALT : CANNOT CONT INCE TeeTHNG IF NOT 
HAL T :STOP TEST 


MOV . @#RPYVEC, JRPVEC sae RPOY VECTOR ADDRESS 
; TQ *TIME1’ IF Oe Boe IS PRESENT 
;0R TO *TIMEe’ a -CLOCK IS NOT THERE 
;* TIME’ L_ONLY SAVE 

: CURRENT eYLINOER ADDRESS 

AND LOOK AHEAD REGISTERS 


MOV DHWRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
BIS aGO!TIE, (SP) ;GET READY T0 set GO AND 


NABLE INTERRUPT 
MOV (SP)+, IRHCS1 H 

2 IN RHCS1 FOR WRITE HEADER AND DATA 
ittH INTERRUPT ENABLED 


s¥0NE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760 
s NIC CRO SECONDS, ONE SEEK = 7000 MICRO SECONDS. 

TIME = 1 REVOLUTION + 1 SEEK + 2 SECTORS 
SMI TIME = 1 SECTOR 


Ome 
eee 3 


WAT ;WAIT FOR ROY BIT TO SET 

RHCS1 :WAIT ai RHCS1 REGISTER 

RDY :WAIT FOR ROY BIT IN RHCS1 REGISTER 
1260. 301 OM 12600 MICRO SECONDS 

1260. RY MUST SET BETWEEN 


AND 25200 MICRO SECONDS 


sou ONE SECTOR were S 5 COMPLETE. CHANGES WILL BE MADE 
iy: tine sect HEN SRE ied WILL BE REPEATED 
SSUNTIL ! Ay Sap. Sle. Ki 


tNC sb NDER HEADER DATA 

aN S428+10 iD SLENDER COMMAND (RHCA) 

EC seine abe ay FOR Bc6 /§} ie. CYLINDERS 
i2. NOT DONE 


SNE 1$ 300 NEXT RTE IF 256. 














---—_ oo - Cr 





- tal 
tei ft 
®t) 
> Aa 
-<« jc 
ame, 
Sts tad 
m «<> 
tadladcd 
ue ) 
tBu 
animes 
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-*« st 
uw4i4 
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oe * 
4eaw 
- fae 
a) ae] - £ 
fam tt 
me - tab 
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inom wo 
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wikis Dd tee 
fucod a 
uw =e 
Tc ata fata 
se «Tia 
TMi 
titree 
4 i 
eri - 
Time > x. 
“++ * - 
“oe ewe + ol 
3 
-@ 
-@ 
-* 
fo 
© 
omy 
tara 
seg 
ff 
ono 
a Le | 
ie | 
Mg 
.¢3 
‘rpae 
~wo 
a a 
fees 
foes 
Hdeat 
a4 
men 
a 


POET be ated a age 
ar LAT Lee ee ee Lee ee 
0.8 @ ~8 8-8 ff 
ELEEL EEL 





ee mn cr ee ee 


ee a rn ee 





UNCT. 
*pFrrenence” LINES 


j- 

toy 
mt 
. - 


GIGIGIC 
‘OU 30" 


o 
5 
5 
si 


x 
| 
by 
3 
«| 
- 


a a ee eee 
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S#INITIALIZE, RECALIBRATE, AND READ CYLINDERS 
pp RRSRESSRER SEER RERR ELSES SLES ERSRERE ESSE ESSE SESE SESE SESS 4 EES ESS 


;¥SETUP FOR CYLINDER 0 
MOV #10000, 385$+10 CYLINDER HEADER (DATA) 
oy ae6$+10 DATA 





éLR oar s+4 “CYLINDER COMMAND (RHCA) 





JSR PC, JeCLDISK ;SET RI-RHCS1, R2-RHCS2 
;R3-RHOS1 RU-RHER: 
'GIVE RH-11 INITIALIZE 
-SETUP UNIT NUMBES 
MOV DBRPSVES, IRPVEC $67 REOY yECTOR ADDRESS 


TIMEL' Tf F2cLOck 15 PRESENT 
Timea’ IF i eae 15 NOT TH 


‘URBENTS aes : ADDRESS 
SAND LOOK AHEAD REGISTERS 








MOV DORECALI, -(SP) :GET READY TO MOVE COMMAND 
BIS aGorre, (&P) :GET READY TO se GO. AND 
ENG py este 


MOV (SP)+,QRHCS1 :G0 


N_RHCS1 FOR RECALISRATE 


76 1 
ahare INTERQUPT ENABLED 





WAT :WAIT FOR ORY SIT TO SET 
RHOS) : sWAtT FOR RHOS ag 

Y WAIT FOR DRY BIT 
e$000. TALLOW 250900 HICRS SECONDS 


35000. | sBRY At ee 


;*#CLEAR READ INTO SUFFER WITH ALL ONES 


JSR RO, J¥CLAREA s CLEAR 260. WORDS 
RETNTO :STARTING FROM REINT 
260. we 

=! PFILC wt 


;#FILL WRITE FROM SUFFER WETH EXPECTED HERDER 


JSR RO, J#FLHEARD SAVE HERDER DATA IN_WRFROM 
WRFROM :LOCRTION WHERE Save 

4 ;NUMBER OF WORDS “SAVED 
10000 IFIRST DATA WOR 

0 , SECOND DATA WORD 





FROM REINTO 
TQ 





SN San ii-D2RIJ- -s RFOY- $s 
IIAP 3 oF cFERENGE eines 


Oe TOOT Le totoe 


CO 00D 09 CO 0N (NON CO 
if n° 2% 
0.00030 U1 £ G3TUe C).000~ ton 


(OM ONTO OD - 


(DEM DEDEDE UE ED 


A) ek ee ee ee ed ed ed ed ed ed a | 


coon onco ap 


4 


ee 


cOCOeD COCO COON CO COCO COCO COCO COCO CO COC COCO CD COCO OD CODCOD 0D 


CoOcoen coco COCO Cn COCO C000 COCO COCO OD COCD COCO CD 
£66 LOI GI C000 CI CUCL IGIGITOURITUPUTUTOUTO 


, 
Cte Cc ).O0D> stuart) 400 0.0000 SOP On tore 


ee ee ee ee 





DO3 
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9 : THIRD DATA WORD 
- aly? ‘FOURTH DATA WORD 
Is RO, JBCLAREA : CLEAR 258. WORDS, FROM WREROM+10 
WREROM+10 TARTING FROM WREROM+10 
256, 256. woees 


SFILL ite 0 


*#FILL READ HEADER AND DATA COMMAND 


JSR RO,daRUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 * 
.BYT 0 SECTOR 0 
BYTE @ TRACK 0 
-256.-4 sWORD COUNT (DATA) = 256. + 
34 HEADER WORDS 
REINTO ‘ 


;BUS_ ADDRESS 

aa ereR BpORGSS OF DATA 
Q = 300 NOT INHI it BUS ADDRESS BNSGEMENT 
ECI!FNT22 316 BITS PER ~~ FORMA 

3 INHTS T'ECS CORRECTION 

INHIBIT HEADER COMPARE 

REFOR GET NREABY TO 00 A REFOR 

READ HEADER AND DATA WITH 72 IN RHCSL 


45 


JSR PC, d8CHECKT SCRE CES DVA,RDY Lyprra0en gs se yV | 
TYPE ,CPHALT - seaRNeT eons i TESTING IF NOT 
HALT ;STOP T 


MOV - BRPYVEC, RPVEC ; tne REOY a PE. HORE SS oRESENT 
IF B-CLOCK 1S NOT THERE 


ee ster Srtsess 
ND LOOK AHEAD REGISTERS 


ECTOR = 760 M cn SECONDS, ONE REVOLUTION 


ONE 
jeleerg MICRO sean MAX SEEK = 529 g. MICRO SECONDS 
;#MAX TIME = ONE REV $1 SEEK + 1 SECTO 

SN TIME = 


MOV DOREFOR, -(SP) +087 READY TO MOVE SOUNANE 
BIS aGO're, (SP) READY T0 SET GC AND 
iPiaate INTERRUPT 
MOY (SP)+, DRHCS! 360, ITH 
RHCS! FOR READ DATA . 


wl INTERALPT ENABLED 














MNO go. -- ii a =o - 
DIRIIA.F LL 

eel 

Sy 

355 2034 
aD ES § 
Siug S3ssas 35 
sss0 32044 
ssl 
3952 

3553 

sss4 

esss 

8ssé 

ses’ 
ss5g 

S85$ 032046 
‘8860 O320S=e 
S861 932054 
23 O3=e0S5 
8863 032060 
S864 O32062 
esses 
ES nme 
S558 O3206¢ 
Sses 
£870 
887 
8872 
887 ‘ 
8874 32070 
Beck Saetce 

f wi 

£87 pastes 
S278 
887s 
8880 032104 
268i O3éiio 
S882 
BSe3 
8824 
gs8s O32llz2 
Bees hasis 
8887 O3elce 
2888 932130 
ese 
BE30 022130 
Fede 28755 
ez nests 

es O32lse 
Bess 032156 
GSS Oselte 
8897 022170 


t3? 


Gbezte 


994037 
70 


00S737 
001404 


022737 


bee7? 


© Ooo 
petetetytetet ate) 
Ocoryvartatar= 

o 
io 


137 
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038032 


001200 
001200 


004626 
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DISFERENCE LINES 


001200 
001200 


003200 
031754 


031762 






















SES 0236 


;WAIT FOR ROY aT i SET 


RHCS1 :WAIT FOR RHCS1 REGISTER 
ROY ;WAIT FQR_ROY A IN RH ae REGISTER 
3472. vale 4720 MICRO es 


BET: 
300 AND 69440 MICRO SECONDS” 
;®CHECK READ WORDS AS ALL READ COMMANDS HAVE SEEN CHECKED 
;#(DATA ERRORS MAY IMPLY “IMPLIED SEEK” ERRORS) 


JSR RO, 38COMPAR sCOMPARE TWO BLOCKS OF MEMORY 
WRFROM :G00D DATA STARTS FROM WAFROM 
REINT TEST ATR STARTS FROM REINTO 
260. p08 TO BE COMPARED 
8¢ tee SAN 70 88 ON ERROR 
33 RETURN TO 93 ON NO ERROR 

8$: BRROR 70 READ HEADER AND DATA ERROR 

pe :DATA GIVES EXPECTED CYLINDER 


s#NOW ONE CYLINDER HAS BEEN CHECKED. CHANGES HILL SE MEDE 
#70 READ THE NEXT CYLINDER AND THE ABOVE SECTOR REAO WILL SE 
i SREFEAT D 
38: TST Des TMP! IS IT ZERO ? 
BNE 10§ : BRANCH IF NOT szERO 
INC SeeTHe ROD 9 a 
BR 11g SPUT ONE IN PINDER 
s SSSSSSSLSSRSSESSASSSSASSASSSLSAASSSASASHRSLAARALSESRAAAS PS LSSSAGE 
ids: TST aBRPOE =; TEST FOR Reds ORIVE 
BEd 16s 37 Rear WNIT i AN RPO oe 
TREAT AS AN RPCE CP > 
sp enseneasancuaseonusnenensncenubaatenenscevesarsenseehnaneneeens 


MP S12. ,uSTNPL 18 JT PASSED S12 CYLINOERS YET * 
igs: CP 8256. , JeSTMPL :18 11 PASSED 256 CYLINOERS YET ° 
LOS 18 YES, 50,60 10 ZERO. 


118: MOV suet Seegei0 | fae ti IN : AD ; SS THE DATA 
‘ rn itMp YLING 2 “iebs : 


MOV 
BIS eenTze. SE) ine, E FORMA 
MOV (SP)+ )a5$410 cL ATA a ENDER 


MOV gasTnPL, Da7$44. er NDER COHEN (RHCA) 
IMP aes SRETURN TO RECALYSRATE 








MNDEC=112-D287-A,. RPOW/S 6 
't3? 


DIRIIA.P 1 
9893 
ee 
Bai BeehS 
302 
3893 
8305 
8305 032202 
8305 032210 
8907 O3eele 
830s O32214 
8308 S3ees¢ 
8310 O32224 
81) 
8si2 032224 
S$i3 032232 
8815 632240 
SSis 932249 
22: C3eeS0 
Ssis o32254 


BeTsa6 


atalahi 


508137 7? 


& FUNCT. CONT. TST-PT 2 


DIFFERENCE LINES 


004636 


002000 


001900 


00ié 


00 


SLRRASA EAA RA AAAS HL AA RASS RARER RAL A RHA SERA ER AA LSS AA EAL SASF SF FS 


ids: 89°08 :TEST FOR ‘feat init : 


a aaietasidatesaaeinaiiaapadnaniglec ctetestateet tuiaiiaaimenanidd 


18$: 
198: 


138: 


tet 


MACY11 


é7 (655) 


#1924. , as$TMP1 
13$ 


19$ 
#512. , aa$TMP) 
138 


+f ts ossTMPl 


ts 


geet 


He ie 


0, 28S$+10 
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S_AN RPOY 
REAT AS AN RPOE 


316 DONE YET ? 


NTIN UE 
Bee DONE YET ? 


ee en a me a eee em ee 


CONTINUE 


;DOUBLE THE CYLINDER - 
s CYLINDER HEADER DATA . 


CYLINDER COMMAND (RHCA) 
sRETURN TO THE RECALISRATE 


ENO OF TEST 


n 
o 


COCOONID 
Prarearvary ere 
cronona 





SPIRII-A, RFOWS 
SABI 


S353 


22444 
B5qc3 
O22455 


ae 


UseS0e 


099001 
003000 
032300 


OO4616 
032366 


OO0ille 


collie 


77777 
04620 


OO4E1E 
00457 6 


a me ee. 


MACYL1 e7( 65S) 


END OF DRIVE 


#1,STIMES 
#0, PS 


J#UNIT,-(SP) 


QaSERTTL,-(SP) 


deSERTTL 
ae$TSTNM 
asSELECT 
3$ 


aasPass 
sbepacs, -(SP) 


SELL 
dats 


#-1 ppeees ren 
asN 


SEOP 
JSUNIT,RC 
ci Ri 


ii, JaUNIT 
aaTsty 





 CERTINUE rr payee THI 
ene al COUNT 


F ALL D 
i iT UNDER TEST 


5 Ths oY JUST TESTED ” 
7 YES 


18:59 PAGE 190 


p RRRARARSARAARAR AERA RARA RA ALARA LARA SALSA SL AAE RL FLEA LA FALE SLI LASS 
ierseagecnnnnnenstustsspnnensnnnenonanenoounnusonneneesnansntns 


1S THE END OF TEST FOR ONE DRIVE 
ERE GRE MORE DRIVES, THEN THE PROGRAM 
Tunes TO TEST S FOR NEXT DRIVE TEST 
END OF PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 
7 nag Si penpeamber ore esemine sere I 
$400 1 ITERATION 
Y 
-GET OVER THE ASCIZ 
OTE) (12> /TOTAL ERRORS ON THIS PASS ON UNIT NO./ 
GET READY TO TYPE UNIT NUMBER 
:; TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
:GET READY TO TYPE NUMBER OF ERRORS 
 FELEAR ‘Tota mo OF ERRORS 


$0 


QUS_ITEM_NUMBER 
S “DRIVES © OEC 


nen IF NO 
NEXT_UNIT 
HE NEXT DRIVE 








S ONE IF NOT 


VES COMPLETE 





03e506 


tabi. ZRIJ“A, RFOW’S/S FUNCT. 
END OF DRIVE 


032613 


001100 . 


032610 
000942 


o4e412 
Osts01 0 


oA A 


Oo 
fu ££ 


tne ee ee a + ee ee. + ee 


« 1St7T @ 


~SBTTL END OF PASS ROUTINE 
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.SBTTL 
-SSTTL #*##*SUBROUTINES*+#* 
.SBTTL 


pp RRHRRR ARERR EERE EERE EERE AE RARER ERE EEE E REE ER EE EEEE EES EEE ERE RES 
J at THE PASS NUMBER ($PASS) 


i irs “END ' aa e 
F THERES A 
tF THERE 1EN'T 


sch 


D 
SEOPCT: . 
BG 


$ENDCT: .WORD 


SGET4e: 


SENDAD: JSR 


N 
SDOAGN: 





Ntoe ao jane re XXXXX IS A DECIMAL NUMBER) 


;:YES 
;;RESTORE COUNTER 


7;TYPE “END PASS # 
3 RAVE $PASS _FOR TyPEOUT 
ere ee Beat WITH SIGN 
TYPE A We HARACTER 
Ht MONITOR ADDRESS 
ANCH_IF Rane NITOR 


336 


;:NULL CHARACTER STRING 


ass’ #/ 
































NNDEC=12-02 RJJ-A, RPOW/S/& FUNCT. CONT. TST-PT 2 MACY11 27(655) 30-NAR-76 18:59 PAGE 192 
DZRITA.P END OF PASS ROUTINE 


s THIS FILLS MEMORY WITH GIVEN DATA 
9020 :USED CHIEFLY FOR HEADER INFORMATION 
302} :CALL IS 
3622 : JSR RO, ¥FLHEAD ‘FILL HEADER 
9923 : LOC ‘LOCATION WHERE SAVED 
$034 : XN : NUMBER OF WORDS 
$0 : XD1 !DATA REPEATED XN TIMES 
3026 : xDe2 :DATA REPEATED XN TIMES 


$031 932630 | FLHEAD: 


$932 632630 910146 MOV Rl. -(SP) ; PUSH RI on STACK 

$033 932632 010246 MOV Re =(SP) “PUSH R2 ON STACK 

8034 932634 612001 MOV (RO)+.R1 ay HAS ADDRESS OF WHERE TO SAVE 
$035 032636 612002 MOV (RO)+;Re :R2 HAS NUMBER OF WORDS 


9037 ;*NOW FILL DATA 
9039 032640 01202! i 1$: MOV {60)+, (Ride i SAV E DAT 


S043 935650 O1s001 MOY «(SP )4°RI tipo Stack INTO Ri 
S545 Sasee2 Oo0e00 RTS RD 


go48 THIS CLEARS ANY BLOCK OF MEMORY. 

$548 IFILLING 17 WITH ANY DATA 

$050 SCALL 1S 

$951 ; JSR RO, DCLAREA 

8052 ; F 

$053 ; N SNUMSER OF WORDS 

o5 ; D sDATA 10 BE FILLED 

3056 TRL WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
9957 Re WILE HAVE NUNBER OF WORDS 

88 RS WILL HAVE DATA 


$060 - 032654 ‘CLAREA: 
MOV 


DATA 
8067 032670 321 1$: MOV ee sNOvE DATA 


| ; 13 'BRANCH IF NOT COMPLETE 
6675 32676 012603 MOV (8P)4,R3 SSPOP STACK INTO R3 
| 
L 





MNOEC*11-D2RIJ-A, RPO4/S/G FUNCT. CONT. 
OZRITA.PLL END OF PASS ROUTINE 


9071 032700 912602 
9072 O3e70e 012601 
anse 32704 000200 


wee 2g 
9095 932730 


S03? 032732 





03 
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MOY (SP)+,Re ;;POP STACK INTO Re 
MOV ~——s (SP) 4,1 ;,POP STACK INTO Ri 


RTS RO ‘RETURN TO MAIN PROGRAM 


;THIS IS A SUBROUTINE TO FILL SAVED REGISTER LOCATION 
IWITH GIVEN VALUE 
fo OME: Mya panne SO Lage. 
; JSR RO, AWFILLRE 

RHXX 






; sREGISTER NAME 
: D DATA 
FILLRE: 
MOV R1,-(SP) ::PUSH R1 ON STACK 
MOV Re -(5P) : {PUSH Re ON STACK 
MOV RO) +, R1 :ADDRESS OF ADDRESS OF REGISTER 
MOV (RO)}+'Re :DATA 
Sus #RHWC 
MOV R2,SA 
MOV (SP) +, 
MOV (SP)+:R1 
RTS RO 






MNDEC=12-DZRIJ-A, REOY/S/S FUNCT. CONT. 
OZRITA.P11 END OF PASS ROUTINE 


9101 


O00 
b+ p< p< 
Oow 
Lot 


0+ b+ b= b= bs = b= 8 = 8 bs 0 be be ho ho be bo Be he ho 
ONO ULE COT). 00 IOUS Wt -OWD~ IM 


OOO OODOODODODODOI ODD. OWDOWOWW 
PUTOTUTUPUTUTUTUTU be + b+ 0 8 8 - OOOO 


147240 
002334 147226 


147232 
O023Se i472le 
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;THIS SUBROUTINE SETS UP FOR SEARCH 
;CALL IS 
— RO, d#SRCH 








: CYLINDER 
:.BYTE § aa: 
:.BYTE T : TRACK 
SRCH: MOV (RO)+, JRHCA ;SET DESIRED CYLINDER ADDRESS 
MOV (RO)+ JRHDST :SET DESIRED SECTOR/TRACK ADDRESS 
MOV QRSERCH, DRHCS1 :GET READY FOR SEARCH 
:WITH 30 IN RHC51 


RTS RO 


THIS SUBROUTINE SETS UP FOR SEEK COMMANDS 


JSR RO,QNSEEKCY 
& ; CYLINDER 


‘ 
‘ 


SEEKCY: MOV (RO)+, IRHCA :SET DESIRED CYLINDER ADDRESS 
MOV JRSEECOM, DRHCS1 :MOV 4 INTO RHCS! 
5 RO ?RETURN TO MAIN PROGRAM 


e 





a ee le oe ee ee. ew eee 


DZRIJA.P11 


032770 


B380b2 


933994 


033029 
033024 


033036 


0000 COON 
Coco >= 6-6 --9-< 

- 9000 
<-furoe = -EGitue- 


MNOEC*11-D2RIJ-A, RPOW’S/S FUNCT. CONT. 
END OF PASS ROUTINE 


147214 
002354 


002209 


002202 


000040 
004616 
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;THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS 
;CALL IS 


RO, J#OF SET 


(RO)+, JRHOF 


BHOFSETC, DRHCS1 


l 
2 
Pa 
4 


#CLR 3R2 
aKINIT, are 


PC 
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;MICRO INCHES OFFSET 








SEG C243 


iROvIN IRFO. RHC REGISTER 
RETURN TO TQ" MAIN N PROGRAM 


NTROL AND aratual 
NTROL AND STATUS 

SK STATUS REGISTER! 
ROR REGISTER #1 


SCLEAR ALL R 
; REINSTATE 


¢ 
¢ 
0 
E 
EG. 
NIT 
;CLEAR FUNCTION 


bya DeHOOo 





wo 
~ 
£ 
Oo 


OMUMUINIUIUIUIUIUN 
Fis oto seh ee 


SICKO 


OO. DOD IOU LO) 


Aen 


+ Ob 8 b+ bee 8 Be b= he be bee bh hb * Bo b+ be be 0 2 8 Bo 2 = ho Bo be ho ho 
“J 
4 ator O.o00 ar 


bt wrt wrt wet tet rt wr Oh“ Oh OOO MOO OOOO O:.O0 M0. OO OOD OOO OOO O00 
ROO R RP PeLeeR “I~J 


Chom 


033040 


oon oo 


GIGI 


OononM 


LUG ILOIO 
GIGIOGIGIGS 
er arr a 


cm oo 


MNDEC*ii-DIRJJ-A, RFOYS/6 vat CONT. 
ZRIJA.Pil 


END OF } 


000900 
0} 1637 


pore 


TST-PT 2 


;THIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHC 
AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), BEV tC READY (DRY) IN RHOS1 


:IT MAY CHECK VOLUME VALID (VV) IN RHDS1, DEPENDING ON ENTRY POINT 


0 
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:PC OF JSR 

(SP),aePCJSR ;SAVE PC OF JSR+4 

#4, JEPCISR GET Pc OF JSR 
aR2, -(5P) T RHD 

VV! (SP) ISONT CHECK VV BIT 
CHEEKE :GOTO CORON” CHECK ROUTINE 
(SP), QePCISR ;SAVE PC OF JSR+4 

25 aePC ISR -GET PC OF JSR 
aR3,-(SP :GET RHDS1 8 DO VV CHECK AT 3$ 


sites csp) iereaR “ aweneD BITS 
BOVAERDY, (SPI+ ARES] Le HAVE DEVICE AVAILABLE 


Pe 


3 
33) aeseDe0R a DATA Ree (RHCSL) 
bz DEVICE 


SATAILBT, (SP) if 
anol! SeRIDRyi vy, ‘3p “Peo Senin Suave THESE SET 


QR, J#SDAOR ‘Bap AD ‘aTA IN REGISTER {ROS1) 
1 sRHOS] HAS aohe BITS TS 


HAN M BPR 
aby ofege Gare Ee Bo 


pO yURT He TO JUMP OVER HALT IN TEST 
N TEST AND CONTINUE 





3% 3 
w 
‘wo 





“0, PRON /S/E FUNCT. 
End OF Pass ROUTINE 


’ 


coow 
fe 
Fe 


BRAT Gofur toebeD ~) He 


OOIOIVIOOOOIWw0o 
L0G ICI GIGI LIGIGIGIGIGIG) 
0+ = 0-2 0 ee 
OO IOmwoond 
fotourtstotores= 


GIGICIGIGIGIGIGIGIGIGIOIG) - 
eb at et at a et at at et 


Sy Se ee BE Sp Se Sy oe Sy ey 
oO 


foo! FCO Flore fure 
Orne 


RRR RR eRe net IOOO 
(POWs OOM 


OTUs (9.000 SIO Gore 
com 
[a 


jOlotoioforororOlorOrolotoluforurororurorurarunitis site bette ee 
MUTUTUTUS— oo bb oo 0b e+ 0) 


Oo 
ny 


fOlofurururotury 
qorururure 
O.w0-I30ut 


ESCO STINE ORE 


iGibiviUrUrDTUrUTUrOTD 
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anes 1S @ SUBROUTINE TO SAVE REGISTERS 
.% 


ey H rt STER TABLE TO ANY LOCATION 
stds “BO, JBSAVER 
7% a ;FROM 
hol ; 
N *NUMBER OF WORDS SAVED 


3# 
4F MUST ALWAYS BE RHCS1 
:#T MUST ALWAYS BE SAVRE 


MOV R1,-(SP) ;:PUSH RI ON STACK 
MOV Re: -(5P) :;PUSH Re ON STACK. 
MOV R2,-(SP) ;;PUSH R3 ON STACK 
MOV (RO)+, 81 : FROM 

MOV (RO)+,8 -T 

MOV (RO)4°R : NUMBER 

MOV a(R1)+, (Re)¢ ;SAVE REGISTER CONTENTS 
DEC = s COUNT 

BNE 1 s;BRANCH IF NOT _DON 
MOV (SP)+,R3 :;POP STACK INTO R 
MOV (SP)+,Re ::POP STACK ant e 
Hoy iP +, 33POP STACK INTO RI 


EyeNT 43 TO BE TIMED THE RPOY VECTORS TO “TIME 1” 
Y OF PRO 4 


> OR 
Y OF TRAPS MUST BE 6 
Y OF RPOY INTERRUPTS IS 7 


CLR SECLCSR ;STOP THE CLOCK 
MOV SPCLCTR DeuRITTM ,GET TINE N CLOCK 

MOV DRHCC, IRF INACC ite CURRENT CYLINDER 

MOV SRHLA,DSFINALA +:GET LOOK AHEAD 

RTI SRETURN TO WAIT P OR WAIT.T 















WNDEC Si, -D28I2-8, S88 Fg PUNT, CONT. TST-PT 2 MACyL1 27.655) Q0-MAR-7E 18:59 PAGE 192 
ore tia. Fit tno SF Fass S2ltine 
SEs THIS 25 4 WAIT LOOP WHEN ON EVENT IS BE. TIMES 
S46 sTHE CALL 7S 
3% 4 wn 
3:58 = ABSOLUTE REGISTER GD0SESS 
S45 g :S 37 Wal TED FOR 
3256 78 STIME ALLOWED GIVEN IN 10 MIQROSEC 
$25: T0 ; TOLERANCE PLUS /MINUS IN 10 “CROSEC 
SEse : 
$253 SRI-WILL HAVE TIME ALLOWED IN 19 MICRO SECONDS 
3:55 rRe-WILL HAVE TOLERANCE PLUS MINUS IN 10 MICO SECONDS 
323s sMINIMUM TIME THAT CAN BE MEASURED IS mMB0UT i2 MICRO SECONDS 
ze38 FOR THE SLOWEST PROCESSIR 
=e 
8258 33234 900000 WAETPC: Q sWAT_PC 
$253 52323¢ 500000 WAITRE: WAIT ON REGISTER ADDRESS 
$250 933240 000000 WaITET: Q ;WAIT ON BIT 
$261 033242 900000 WAITTM: O sHATTED Me 
Sebe Osse44 UwSUs? O33e4e WAIT.P: CLR SBWAITTM -CLEAR WAITED TIME 
$263 033250 005077 i4s?7e - CLR SPCLEUF ;CLEAR COUNT SET BUFFER 
$2e4 033254 012777 Godoer sere? MOV eGO!NSIT4,SPCLOSR ;COUNT UP, 150 KHZ, START CLOCK 
$2¢5 033262 015046 MOV RO, -(5F) ;:PUSH 80 ON STACK 
$286 053265 910146 MOV R1,-(5P) :;PUSH R1 ON STACK 
See? 033266 O1De4e MOV Re, - (SP) PUSH R2 ON STAC 
$2s8 933270 o10346 MOV RB. =< 5P) PUSH _R3 ON STACK 
9269 Q33272 016600 000010 MOV 1OlsP) Ro :RO HAS ADDRESS OF NEXT LQCATION 
$270 333278 010037 933234 MOV RO, JRWAITPC :NOW WAITPC HAS WAT PC + 2 
$271 533302 162737 000002 030234 Sua 2° DBWAITPC WAT PC IS_IN WAITPC 
Sere 033310 013037 033236 MOV 3(RO)+, O8WATTRE :WAIT ON R GISTER ADDRESS 
$273 535315 O12037 533380 MOV (RO)+,9eWAITET :WalT ON " 
$274 033320 012001 _ MOV (RO)*°Ri RL HAS TIME IN 10 MSEC 
$275 535322 212502 Mov > (RO) 4: Re :R2 HAS TOLERANCE IN ID MSEC 
Ze08 Sssse4 OLS0EE 00000 MOV RO, 10(SF) RESTORE RETURN ON STACK 
se72 ;#THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS 
i} 
$280 933320 013702 023802 - MOY = @8TIMCNT,R3 ;R3_IS_A TEMPORARY COUNTER 
$28] 535335 053777 0332450 i77e7y 18: iT DSWAITET; DWAITRE’:1S REQUIRED SIT THERE 
| $282 033342 901025 SNE 4$ BRANCH IF YES ‘ 
$263 023349 005302 DEC Re ;COUNT IF REGUIRED BIT NOT THERE 
$284 53334 S01372 BNE 1§. 
$285 623350 013703 032502 MOV JETIMCNT,R3 : TEMPORARY COUNTER 
$2s6 332354 035777 023250 177654 2$: 81 VEWAITET, QWAITRE’;IS REQUIRED BIT THERE 
| $287 933362 001015 BNE 84S : BRANCH 
| «SE feasts Obed DEC = :COUNT IF REQUIRED BIT NOT THERE 
| $285 8335ce 50137 SNE 2 
_ $296 033370 617737 i77e4e 01126 MOY  QWAITRE, DsS$SDDAT ;PEGISTER CONTENTS FOR TYPEOUT. 
| $292 933376 O3e777 000100 146574 ei! BIE, QRHES! SID ANY INTERRUPT OCCUR 
| $68 355405 807402 9 § IBRANCH IF Y . 
| $253 “O3340¢ 104001 ERROR , sRPOY OID NOT INTERRUPT 
| $295 033410 000427 ae , See :OUT 
| $265 C312 104002 3$:. ERROR 2. RPO INTERRUPTED BUT WAITED 
| S$eS6 30N BIT DIO NOT OCCUR 
| Se97 EVEN GFTER TWO COUNT. DOWNS 
3e58 SFRON “Inver? To: 6 


is 


JOIGIGIONY 


C050 1050) 


C.ICIGIGICIGIGIT 
MOcitoe oO 
ITP ULs Gorue-C.00D~ Met E Lotus Con 


POO OO O<O OO OOF. OOO OO DOOD 


i 
LITT O-< « 0-< 0 0+ ~~ pop 


IOIGIGIGIGIGIGIGIGIGI 


a 
ut 


t 


CoGsrurorrornr 
C000 Ou £ Osfue- o.oo 


TY 


Py arvarvslvelvelvirverlvalvalverververrarvelverestvsrvirys) 
Ee GIGIGIGIGIGID) 
mit - 


GIGI OI GIGI OIG CI CIGIOIGIGICIGIGIGS 


ce snr ee en ne a 


oe 


MNDEC=13-D2RJJ-A, RFOY 
DIRITA.P 12 


033414 


paler 
S34S6 
Oss#é6 


022464 
033466 


“ewww 


END OF 
2do82s 


(9000) 


(jye-09 
moc) 
WOO 
ju 
oor 

~~ 


Oooo 
Cle 6b 
Corurorure 
orwrmd 
OOOO 
MCje- fut 


*< 7e. 
e ‘ . 


3k 7$ ; OUT 
»eNOW TIME AND TOLERANCE W 
4$: fey sual iRe, 38 BODA jeeerSteR toh ers FOR TYPEOUT 
' Sif, aRH 
BE S$ B10 8 New 
ERROR 3 te eeRUeT 8 HoT OCCUR seven 
ca ONE Eh & BND ONE M 
me " HE WAITED ON BIT sEFtING 
Ss: Sus R2,R1 fay TOU HAS LOWER LIT OF TIME 
CMe JeWAITTM, RL FOR GOOD RESULTS, WAITT 
Must BE GREATER OR UAL 
BHIS =s«&E ; BRANCH IF 6000 
ERROR 4 :BLT DID OCCUR BUT TIME 
; TAKEN IS BELOW LOWER LIMIT 
BR 7$ : OUT 
és: ADD =: R2,, RE * : DOUBLE TOLERANC E 
add Ro. R!} NOW HAS UPPER LIMIT OF TIME 
CMP RI: DBWAITTM FOR 6000 RESULTS. WAITTM. 
a See must SE LESS OR EQUAL TO Ri 
‘BIS. 78 ISRANCH IF 6000 
ERROR 44 _+ $817 BID OCCUR BUT T 
:1$ ABOVE UPPER orate 
MOV (SP)+,R82  f : BOP STACK INTO R3 
MOV (5P)+' Rd -POP STACK INTO Re 
MOV (5P)+'Ri : POP TECK INTO RI 
MOY (SP )4+,80 POP STACK INTO 80 
TI {RETURN es ‘MAIN TEST 
sTHIS IS A WAIT LOOP WHEN NO P-CLOCK IS AVAILABLE 
NO TIMING IS DONE 
3 CRLL Is 
WAT 
a s ABSOLUTE REGISTER ADDRESS 
= -3IT WAITED FOR 
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28 fa) USED HERE. 
TIME-NOT USED HERE 


~ 1s a SENPORRAY COUNTER 


TIMCNT:s 177777 é sCOUNT FOR WAIT LOOF 
RPTCTR: 2s : COUNT FOR INTERRUPT 
WAIT.T: 


ee ee eee ee 


MOV RO,-<(SP) ;:PUSH RO ON STACK 





























04 
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. EnD OF Fass ROUTINE 
3353 0 3510 010346 MOV s«R3, = (SP) ;;PUSH R3 ON STACK 
S355 033512 016609 000004 MOV =—- 4CSP),RO ;RO HAS ADDRESS. oF NEXT LOCATION 
$356 033516 010037 022234 t MOV R0, aaliat TEC SWAT PS +2 IS IN WAITPC 
$357 033522 iber3 000002 033234 Sus #2) DRWAITPC sHAT Pe TS IN WALTES 
$358 033530 013037 033236 MOV = (RO) +, DAWAITRE WAIT ON REGISTER ADDRESS 
$353 033534 012037 033240 MOV tao), QaWAITBT WAIT ON 
$360 033549 O22020 OME (RO)+? (RO)+ ati P NEXT TWO WORDS-TA, TO 
$61 O33542 C100 co0004 MOV RO, 4<SP) SRESTORE RETURN ON STACK 
3353 ;#THIS HAS THE TWO COUNT DOWNS FROM 17777 
$385 033848 013703 033502 MOV  - QaTIMCNT,R3 ;R3_HAS TEMPORARY COUNT 
S356 O33$s2 033777 O33340 iv74ss 18: SIT  § JBWAITBT,QWAITRE ;1S REQUIRED BIT THERE * 
$367 033560 901025 BNE 8 s44S CHECK FOR THE INTERRUPT 
$368 033562 005303 DEC RS ;COUNT IF REQUIRED SIy NOT THERE 
$368 933564 001372 SNE 1$ 
$370 033586 913703 933608 | MOY § Q&TIMCNT,R2 sSECOND COUNT DOWN FROM 177777 
$371 033572 033777 533280 i7743e 28: BIT  SsWATTBT aWAITRE’ : 1 REQUIRED BIT ougere ? 
$372 033600 001015 BNE «4S KH HECK.FOR_INTERR 
@ S225 033602 905302 Dec sé KOUNT IF REQUIRED BIT NOT THERE 
$375 033605 001372 BNE so 
S375 033606 O17737 77424 o011ze - MOY SATIRE DUSSODAT ;REGISTER CONTENTS £OR TYPEOUT 
$375 233614 O3e7?7 Oo0100 14e3se BIT IE, aRH :O1D ANY INTERRUPT OCCUR 
B07 Oeste O0lsGe cr BARNEH IF YES 
$372 033624 104001. ERROR 1 sRPO4 DID NOT INTERRUPT 
$380 | ee git OID NOT OCCUR = 
a 033626 000417 R S$ NUT. wee nena nn na----------------2--- 
$383 033630 104002 38: ERROR 2 ;REOS INTERRUPTED BUT 
$264 : tWAITED ON B}T O10 NOT occur 
2285 TEVEN RE TER WO COUNT DOWNS 6 SRL 
| Gs lege os We PB ie) ee 
$387. 033632 oo0415 ct s$ a Lia af QUT seewenacnecsesessceneeeceeeenese) wens +> 
"DP Guaeeapraner eget... attra" Ae aie eo aa ar nea Se acs 3 Co in Been 
383 ;*BIT DID SET SO CHECK IF INTERRUPT OCCURRED 
$351 ;#THE AMOUNT OF TIME ALLOWED CAN BE CHANGED BY ALTERING LOCATION 
a2as :#"RPTCTR™ ABO Ee 
$234 032624 013702 023504 48: MOV  - @@RPTCTR,R3 LOAD COUNTER WITH COUNT °2 
$295 9233640 005203 68: DEC OR COUNT DOWN 
goog Cost4e OC1s76 BNE = 68 :00 AGAIN IF NOT ZERO YET 
o20¢ 
$233 023644 022777 OOC100 146326 81T BIE, QRHCS1 DID ANY INTERRUPT OCCUR * 
$400 O33¢52 001405 BEQsOSS BRANCH 
Sst 03355 017727 17728 001126 Hey--dBUAITRE, QSSD0AT REGISTER CONTENTS 3F0R, TYPEOUT 
| $492 033662 104003 ERROR 3 "ines RRUPT DID NQT 0 
| 8453 EVEN AFTER ONE. 8N ES 0 
os :THE WAITED ON BIT OCCURING 
S405 032¢64 00400 BR ss [OUT s----2---222-22----------------- 


——— i ee ee ee mre ee em re re ee 3 ee ee = 








er re rr ee re a eee em ee we eee 


FO4 


e71 655) 


"io aaa aan eas ee 
MNDEC -i1-DIRJJ- -4 RPO. 5-6 FUNCT. CoN. TST-PT 2 MACYLL 
DPRIIA. Pir. EN ND.9 OF Fass Routh NE jprakenee 
S407 O33866 Hee? gia ae 

e438 “‘DS2868 - 012603. Mov ($5 1+. 83 
0 MOY _— +, 
ie wnt bate Wiha edocs 

144 , 


30-NAR-76 seth Pace 201. 
fe STACK ‘INTO Ra . 
P STACK a RO . 

tire URN TO MAIN TEST ° 


—— ——— —— —-.-—--.- =! 


en  ——— 





1-02 
PL 














033740 
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END OF BASS RO NITENE 
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ANGES REGISTER SAVED VALUE 


: P OSITION 
;NEW AND P WILL BE REPEATED N nies OF TIMES 


s;PUSH RI ON STACK 
H Re ON STACK 
a3 HAS RODRESS OF RODRESS OF REGISTER 
RI tae OFT 0 oF REQUIRES REGISTER 
BIC OR A BIS 
hedure BIC TS REQU IRED 
aa COUNT 
NUMSER oF CHANGES 
T COM LETE 


ONCoO £+ 
WO-=fue- ro 


2$ 

_ &ROD+, SAVERE(RID 3 
(RO)+, SAVERE ( Ri)’ 
Re 


GaTu 


K INT 0 Ri 
He “inh 16 MAIN PROGRAM 


A BLOCK WITH INCREMENTAL DATA 


QF WORDS. 
SORTING VALUE OF DATA . 
; INCREMENT DATA BY 


AS RODREES WHERE DAT! 
;Re HAS NUMBER OF WORDS T 
STARTING VALUE OF DATA 
sR4 HAS INCREMENT 


;*NOW DATA mt BE FILLED 
OV Ra’ Rs 3F DATA 
6 I ha Mastr OF DATA 





utitatuturara tutor 
0 > +0 -* 0+ + + (909 


wCcoON@ Ul se torture © 


945$ 923766 
9467 _Basee8 


034026 
034032 
034040 


coins 


034 
34072 
Ed lg 


OododoOouN OF-O BOOO0OH 
COTM eC bb 


— 
oO 
uw 
Ww 
“ 


004714 


005303 


es: 


NNDEC= 12 O2RIJ- “A, RPOY/S/G FUNCT, CONT. TST-PT 2 
END OF BASS ROUTINE 
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: BRANCH IF Ab Hol DONE 


sTHIS IS_A SUBROUTINE TO COMPARE nen 


:G00D DATA IS ALREADY SAVED IN 
;TEST DATA IS IN THE REGISTERS 


CALL Is 


COMREG: 


MOVE 


OV 
- NOW conenags WILL MADE” 
18: App ¥ 


RG 
:ON RETURN WITH ERROR *$GDDAT’ uiise Hine DATA, 
;REGADR’ HAS REGISTER ADDRESS 


T NOH save "aeGisTe 
SR €, JaPUTR ae 
SiSAVERESZ8, 2eAS+1 : MAKE UEPER BYTE OF RHAS SAME ~~ 


-(R1),a8$GD0AT 
-(R2)' a8$BDDAT 
canis JBREGAD of 





;GQ0D_DAT 


ADDRESS “OE ao TEST DATA 


N FOR GOOD COMPARISON 
*SBDDAT’ HAS BAD DATA 


sRETURN F 


rt Rl ON STACK 
;PUSH Re ON STACK 
;PUSH R3 ON STACK 
ii PUSH RY ON STACK 


RS ON STACK 
AR BAS ADDRESS OF goon DATA 
Re Has RODRESS OF AOORESS OF TEST 


3R4 0 
4RO HAS RETURN ON NO ERROR 


«SAVE REGISTERS 
PRESET 
INCREMENT TO INDEX 


coven REGISTER CONTENTS 
H IF GOOD 


SAV GQ0D "dy 
: SAVE BAD ome 


URN i MAIN PROGR 
BR R 





"eopRess. oF FAILING REGISTER 


, -(R2) FOR ERRORS 
TTING 


* ARE ALL LSNPaRES DONE 
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DZRIJA.Pil 


034116 





END OF PASS ROUTINE 
001382 


ONdOO0O0OHO 
C70 eo b—- 9 


3s: 


4$; 


a a es = a ee ee 









04 


SEG OeSe 


BNE 13 ;BRANCH IF NOT COMPLETE 
MOV (SP)+,R5 ::POP STACK INTO RS 
MOV (SP)4'R4 ::POP STACK INTO RY 
MOV (5P34'R3 ::POP STACK INTO R3 
MOV (5P)+'Re ::POP STACK INTO Re 
MOV (5P)4'R] ::POP STACK INTO RI 
0 ‘RETURN TO MAIN PROGRAM 


RTS R 
WORD 0 ; TEMP STORAGE 


poo ee a ee 
i 


‘ 
4 


MNDEC 
JJ 


i 
Pil 


a. 


0.0.0 ide 
atari 


OO O00 
ritatatitatat iti 
> £6963 CIGIGIGIGIGIGIGI 
OWD “IMU £ Gotue- 


9551 934136 


955 O34186 
935 O34222 


$562 O34234 


$564 o34266 


3569 034304 
9$71 dO34366 
9572 O34366 
9573 03437e 
034434 
9576 934434 
9577 034440 


9579 034526 





END OF PASS ROUTINE 


900000 


005027 
012737 
104400 
oo0421 


013746 


000434 


013746 


000430 


194400 
000420 


04400 
00432 


177776 


177777 


034160 


oo4s04 
034236 


001110 


001223 
034306 


034374 


wd4442 


o0000e 
001105 
O34S46 


040434 
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; HERE 13 A DETAILED EXPLAINATION OF HOW iM ait QN BaOR WORKS. 
;ON HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS THE 
:PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING oF THe TEST. 


;WHEN THIS OPERATOR ae SCOPE LOOP IS USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN 7a CHANGED. 

THE RESTRICTIONS My THE POINT WHERE THE PROGRAM CAN GO ARE: 

31. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

;2. LOQP_ON ERROR Si ITCH MUST BE SET 

i3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

; R DOES CUR WITHIN NDER ee TE oe 


1 
ma | 
— 
an 
m 
m 
2s 
Oo” 
- 4 
oOo 
=“ 
~ 
- 4 
m 
_" 
m 
w 
paar 


T OGR BACK TO 
: CONES TO THE END OF THE TEST UNDER CONSIDERATION. 


SAFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
;NORMAL OPERATION WILL CONTINUE. 


TESTAD: 0 ;FIRST ADDRESS OF TEST 
OPERSEL: 
CLR ;MAKE PROCESSOR peru ZERO 


PS 
MOV #-1,28PRITEM  :CLEAR PRE VIOUS I NUMBER 
TYPE o5¢ :: TYPE ASCI ¢ 3 TRING 
BR 4g “GET OVER teh Sc12z 
igs: "ASCIZ <15)<12>/THE PROSBAM WAS IN TEST NUMBER - 
NOV QeTSTNM,-(SP)  ;GET READY TO TYPE TEST 
TYPE 675 {TYPE ASCIZ STRING 
BR $3 :GET OVER THE ASCIZ 
ij878: "ASCIZ <15><12>/THE LOOP’ BACK PC WAS / 
; HOY J8SLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
TYPE  ,$CRLF 
TYPE ‘695 +3 TYPE ASCIZ STRING 
BR 68¢ -GET OVER THE ASCIZ 
j i898: "ASCIZ <15)<12>/SET swith FOR LOOP ON ERROR OR LOOP ON TEST’ 
. TYPE 71 3+ TYPE ASclZ STRING 
Loe ae 70§ SiGET OVER THE ASCIZ 
44718: "ASCIZ <15)<12>/TYPE THE’ FIRST PC OF THE TEST’ 
; TYPE 4238 $s TYPE ASCIZ § STRING 
BR 2g ‘GET OVER THE ASCIZ : 
44798: "ASCIZ <15)<12>/T0 BE LOOPED ON FOLLOWED SY A CARRIAGE RETURN <1S 


 sGET LPADR 
MOV feb), DeSLPADR 
TYPE -,75$ ::TYPE ASCIZ STRING 


SEQ OeS3 








MNDEC=11-DZ2RJJ<8, RPOW/S/& FUNCT. CONT. 
END OF PASS ROUTINE 


DZRIJA.P11 
9584 O34S44 
9585 034604 
9587 034604 
9588 03410 


3530 O3471e 


. 9694 034754 


96 
$610 iad cob 


3$e3 034764 


000417 


104400 
000440 


034612 


002172 
002254 
000922 


TST-PT 2 
ui7S$:  .ASCIZ 
74$: 
TYPE 
773; SASCIZ 
Pes: 
RDOCT 
MOV 
MOV 
RTI 


PUTREG: 


10$: 
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GET OVER THE ASCIZ 
><la>/TyPE THE’P WHERE YOU WANT? 


$ 

5 

7$ +3 TYPE ASCIZ STRING 
$ OVER THE 


(SP)+, Da$LPERR ;GET LPERR 
JHSLPADR, -(SP) 


s*THIS SAVES THE CONTENTS OF ALL en. REGISTERS 
FROM “wWe™ “ECe" 


; S IS DON E 
;#AND NOT THE REGISTERS THEMSELVES. _ THIS 
;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 





RO,-(SP) PUSH RO ON STACK 
R1.-(5P) 11 PUSH Ri ON STACK 

Re: =-(5P) ::PUSH Re ON STACK 

aRHNC RO STRRTING ADDRESS OF REGISTERS 


TART ING ADDRESS OF SAVING LOCATIONS 
SHARC RHWC+2/2, rie, “NUMBER OF REG. R 
3(RO)+, (R1)+ ;SAVE HARDWARE REG. 


(SP)+,Re 3008 STACK INTO Re 
(SP}+,R1 POP STACK INTO Rl} 
(SP)+,RO + :POP STACK INTO RO 






E ASCIzZ 
><12>/ THE PROBRAN TO LOOP BACK TO FOLLCWED BY A CARRIAGE RETURN /- 
















MNDEC=i1-D2RJJ-A, RFOY’S’S FUNCT. CONT. SEQ 0ess 
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DZRIJA.PL] END OF PASS ROUTINE 
9624 :THIS IS A DATA COMMAND SETUP SUBROUTINE 
9625 :THE CALL IS 
9626 : ISR RO, J#RUN " bees 
ares : BYTE 3 ise cto 2 
9629 :.BYTE T 
9830 -W ‘ORD COUNT 
$631 : :BUS ADDRESS 
3632 : BAI :BUS ADDRESS INHIBIT 
9633 : FNT22!ECI!HCI EM MT22=1 =16 BIT WOR 
9634 : tECI = ECC CORRECTION INHIBIT 
8635 : ‘HCI = HEADER COMPARE INHIBIT 
9636 COM :COMMAND ADDRESS 
9637 O34766 012077 145220 RUN: MOV (RO)+, JRHCA CYLINDER 
9638 034772 9012077 145206 MOV (RO)+,RHOST  § :DESTRED SECTOR/ TRACK 
$639 034775 012077 145170 MOV (RO) +) IRHWC WORD COUNT 
9640 O35002 012077 145166 - MOV (RO)+’ SRHBA *BUS ADDRESS 
9641 935006 013745 Oo4616 MOV QHUNIT,-(SP) § ;GET UNIT NO 
9642 035012 O52016 BIS (RO)+, (SP) :SET BUS ADDRESS INHIBIT 
9643 035014 O12677 145156 MOV (SP)+;aRHCS2 § :UNIT NO AND BAI TO RHCS2 
9644 935020 012077 145164 MOV (RO)+! JRHOF :FORMAT, ECC INHIBIT, HEADER 
seus : COMPARE , iF HERE 
S646 035024 013077 145150 MOV 3(RO)+,QRHCS1 COMMAND’ IN RHCE! 
8647 035030 o00200 RTS RO ‘RETURN TO MAIN PROGRAM 










9652 ; THIS IS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 
: G R ADDRESS 






656 :R3 HAS NUMBER OF WORDS TO BE COMPARED 
$657 ?R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 
ges ;CALL is 
9655 : JSR RO, J#COMPAR 
9660 : G sADDRESS OF GOOD DATA 
966] : : T : ADDRESS OF TEST DAT 
9662 : N NUMBER OF WORDS TO BE COMPARED 
9663 RE RETURN ON ERROR 
S664 : RG RETURN ON NO ERROR 
Sees 
SEE 
3657 
3668 935038 COMPAR: 
01 M 
01 
O1 
01 
01 i ON STACK 
9674 635044 012001 MOY (RO)+.R1 :ADDRESS OF GOOD DATA BUFFER 
9675 o350%6 ot 90 MOV (RO)+°R s ADDR 55 OF 6S", ATA BUFFER 
S676 635050 01200 MOV (RO)+°R COMPARED 
9677 025052 012005 MOV (RO)+- RS ‘RETURN GN ERROR 





o35424 
g3sse4 


O3565¢ 
035714 


035756 


035734 
035734 
035740 


A207? 
wei 






MNOEC*11-DZ2RIJ-A, RFOWS/6 gone 8 ap. TST-PT 2 
DZRIJA.P11 


END OF | 
900437 


Oo0416 


Phaant 


ca04d2 


104400 


OO0416 


o0C060 
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70$ GET OVER THE ASCIZ ya 
C18) <12>/TYPE NEL ger soe ADDRESS OR RETYPE OLD ONE FOLLOWED BY “CR” / 







(SP)+, J#RPVEC sere VECTOR a 
73$ ; ayte ASCIZ STRING 


2 OVER THE ASCIZ 
<15><12> /RESTART s4GET OV FROM 200 OR 2107 
75$ op s3TYPE. ASC1zZ STRING 
4§ ET OVER THE ASCIZ 
(15> (12> NEW BASE’ WILL “REMAIN, = 7 
O#RHCS1,-(SP) 
4778 ss TYPE ASCIZ STRING 
6S “GET OVER THE ASCIZ 
<1e><12)/NEW VECTOR WILL REMAIN = 7 
DHRPVEC, -( SP) 
4738 :; TYPE ASCIZ STRING 
oF !:GET OVER THE ASCIZ 
C15><12>7 7 


21 s;TYPE ASCIZ STRING 
og GET OVER THE ASCIZ 
€15><12> UNTIL obi GRAM IS RELSADED/ 

































ZRITA. Pil 


8754 036000 


$765 036000 
$755 036004 


S763 36056 
8759 036056 


art Bebee 


MNOEC<1i-D2ZRJJ-A, RFOY/S/6 FUNCT. CONT. 


END OF PASS ROUTINE 


104400 036006 
000424 


ee 036000 144100 


099 
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7 gna oats BRS Renee sie atanmaaeR Comms enen: 


baverT 
” TYPE S$ :3 TYPE ASC1z STRING 
BR b4§ Ger TH. 
jig58: "ASCIZ UNEXPECTED INTERRUPT yer i 4 2/ 
TYPOC 
MOV BRPVECT, IRPVEC beet one? Rae RPOY VECTOR 
HALT :CHANGE TO CONTINUE 


PETTITT eCtrrrTritrirtrtrtrtrrrirtttiritretrrrerrerrerrrtt ett trr! 


A i 
a ” 
-C€ seOitte pereant 


iri re re ite i) 
a 
: 


$755 
S75— 
373° 
75s 
> $35 
| 3730 
$7S] 
S35 555575 
e7s§ 336072 
ele 036106 
S7S> 926102 
§7a5 
$738 026104 
$800 Ello 
$801 O36118 
SeGe2e Ostlee 
$653 036126 
S804 036130 
$s05 036132 
S656 036136 
S807 63¢149 
S656 36140 
a0} Goble 
| Sei s3et2e 
312 036160 
| $613 Qoei64 
S515 55cle 
S8is 036174 
S16 036176 
| $817 536204 
| $818 36206 
| $819 S3eei4 
| $620 O3¢2le 
| $821 36222 
| S822 O36226 
| §€23 036230 
| 6654 936536 
| $625 g2e24¢ 
| $826 O3ce44 
S627 O3t246 
S628 Cztete2 


etree rE 


—E 


fou 
. 


PAnace 


+ +e 4 


000409 
142764 


001103 - 


0911iS 
001000 
001110 


901103 
001212 


004000 


wm ee ee ee 


ee A eC 
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nau? ines 
.SBTTL  SYSMAC LIBRARY ROUTINES 
.SETTL SCOPE HANDLER ROUTINE 
Lee Buti Brattice & tal babi Ie manatee Ee hh terete 
ATHIE SOUTINE CONTROLS THE LODPING OF SUSTESTS. IT MILL TMCREvENT 
T@AND LOAD THE TEST NUMBER(STSTNM) INTO THE BISPLOY REG. (EIEeLaT 7:0 
peaNE LORD THE ERROR FLAG i SERFLG) ints CISPLAY: 15:08 
HE SWITCH OPTIONS PROVIDED Sy THIS ROUTINE ORE 
eauteat LOOP ON 
:#Swlizl rivsieiT bee 
+5092! Loop y ROR 
:#5WOS=! LOOP ON ret IN SWR<7:0) 
S€CRLb 
i+ SCOPE : SCOPESIOT 
SSCOPE: 
CKSWR ;:TEST FOR CHANGE IN SOFT-SwE 
143040 18: BIT e8IT14, 3SWR ribs SOP ON PRESENT TEST? 
SNE SOVER ES IF Swidsl 
-geeseSTORT OF CODE FOR THE xOR ticteeseens 
$xTSTR: BR ¢ s1F RUNNING ON THE “XOR™ TESTER CHANGE 
i Turs INSTRUCTION TO AR “NOP” ¢ NOP=24C } 
MOV DRERRVEC BRAVE THE CONTENTS OF THE ERROR VECTOR 
oocoos MOV 8s MaNERAVES ;3SET FOR TIMEOUT 
TST as 1? gc ss TIME OU T ON XOR? 
MOV (SPs JRERRVEC HIRESTORE THE ERROR YECTOR 
3a VLAD £160 — NEXT TEST 
S$: CMP tote (SP)4 et tH STACK AFTER A TIME OUT 
MOV (SP)4'SaERRVEC i RESTORE HE Fenoe VECTOR 
BR 75 :;LOOP_ON THE PRESENT TEST 
&$::seeesEND OF COD FOR THE anes? Nat BAR seeas 
142772 ei #1 08, aSwR EN N SPEC. TEST? 
001102. se SR, STSTNN TON THe RIGHT TEST?  SWR« 7:0) 
Be 1378 $ERFLG rTHAS @N ERROR OCCURRED? 
001103 cies SERNAX, SERFLG i PMaX. ERRORS FOR THIS TEST OCCURRED” 
142734 git #21709, aSuR 11008. ON ERROR? 
001106 7S: NOV SLPERR, $LPAOR ::SET LOOP ADORESS 70 LAST SCOPE 
4$:° C€LRB  SERFLG: ;;ZERO THE ERROR FLAG 
CLR STIMES rs CLEAR THE NUMBER QF ITERATIONS TO MAKE 
BF 1s ‘ESCAPE TO THE NEXT TEST 
142702 3S: 51 aS1711,a54R ii EMDBEY ETERAT TONS? 
TST $PASS ii TF FIRST Pass OF PROGRAM 
BEQ 1g TNH 1 TTERAT IONS 
INC ten NT i INCREMENT. FeRAteS N COUNT 
001104 CMP $TI! MES, SICNT tt RUE CR THE NUMBER OF ITERATIONS wad 
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CO 
02 
le 
3 


je 


3-105 


ae 
Tt tra F J 


Cun 


I) 


ie 
et et 


010) e- 09 


LICIGIOIOIOIGITY 


ONVIdON90000 
OONOINMI0NWOH 

ae 
Ofuer- LOU Tuc 


€ 1) oo C Je 0 (je &- 


IN00+-O0O-O00 
IO IGIGINVUe— &-- 


(ODO 00 DD 
£OIGICIGIGIGIGIGIGS 
C1. IU Gt 


frnonininmam 


ISPLAY 


. 
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SZ INOOCOMMOW Dw 


- eee ee ee woes 
8 oe be me we ee oe ee oe 
aon 


: ee ee ee wc we os 


RFQ 56 FUNCT. 


NOES 4 “DIR II- 


IO) 0 6 = 9 = b= bb 


TST-PT 


é 
SONVERT BINARY TO RECTAL AND TYPE ROUTINE 
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~SSTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


: ITIVE NE EA 

: BEFORE THE 25 Ragit OF THE NUMBERS 
: SREFLACED WITH SPACES. 

; #¢ 


STYPDS: 
M 


" gg; 


38: 


5% 








pereennnnresereeaterereeneeers prrrenresnresmemmerente eeneet 
:STHIS ROUTINE IS USED TO Cone Al 





;;PUT_THE aglf NUMSES ON THE STACK 


33G0 TO THE ROUTINE 


;;PUSH RO ON STACK 
;;PUSH Ri ON STACK 


PUSH RS 


i367 yak eos AND SIGN: 


BR _IF_DON 
; } INCREASE THE BCD DIGIT BY 1 
;:;AOD BACK THE pete TaNT 


vic or hd BCD pacits 


ALL THROUGH IF 9 
HST BOING LEADING 0°S? 


1388 iF 


:7R IF 


ORE IT A SPA 


::GQ CHANGE TO ASCII 
T 


: SHAS THE LSD THE FIRST NON-ZERO” 
IF _NO 


i 


-B1T BINARY NUMBER T 
a | IT. aint cf on 


NUS SIGN 
LFBOING ZEROS WILL A 









EOS 
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OZRITALP LL BoNVERT BINARY TO DECIMAL AND TYPE ROUTINE 
9895 036520 012603 MOV (SP)+,R3 :;POP STACK INTO R23 
$895 03¢S22 Oie60e ae MOV (SP)+,R2  - . sshOP STACK INTO Re 
sss? 036524 g1g801 MOV (SP)4.R ::POP STACK INTO P 
39se gebbe8 les MOV SP)+'R :3POP STACK INT 
9398 936230 104400 o26556 TYPE S0BLk TYPE THE NUMBER 
3900 036534 C1SsesS 900002 co0004 MOV BSP) ,4(SP)  SaDTUST THE STACK 
8991 o36542 O12c16 MOV (SP)4; (SP) 
$902 O36544 090002 T »:RETURN TO USER 
$903 036546 de34e0 $OTBL: 10000 
3904 936550 901750 
ssos 936552 000144 100 
$906 O36554 300012 10 


et ted 


0 
LD 
a] 
J 
c 
& 
ao 
u 
u 
o 
© 
a) 
© 
Cs 
© 
- = 
toe 
La J 
tw 
- 
* 
m 
‘ 
=x 
a 
a 


me a ne ne + ee eee 


MNO ECS li ee: 
DIR JIa.F 


$914 


Gabeee 


O3b6c6 
O2t67e 
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013746 
403268 


11271 
00473 
132737 


OUTINE 


081157 


000002 


o0000e 
000011 
000200 


037002 


036735 
001156 


001154 mon 


000001 


036736 
037002 


000040 
036736 
000007 037002 
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¢ RRAKAA RRA ERAH A SLARA RA LAL ALS AL ALA FLARE ELSE LARA ELALESLLLEFLFLFFS 


: EROUTINE TO Mig ASCIZ eer 
;®THE ROUTINE WILL eg AN 
;*NOTEL: $NULL 


NTAINS 
; #NOTEe: eitis ¢ CONTAINS T 
aS $FILLC KONTAINE 


®CAL 
a1) “héine A TRAP INSTRUCTION 
TYPE »MESADR 


; TYPE 
:* MESROR 
2% 
$TYPE: TSTB STPFLS 
‘ BPL 1$ 
HALT 
BR 3$ 
18: MOV RO, -(SP) 


MOV de (SP) ,RO 
2s: MOVB * = (SP) 


TST (SP)+ 
gOS: MOV (5P)+. RO 
38: ADD #2, (SP) 
RTT 
48: CMP5 «ss HT, (SP) 
BE 
che #CRLF, (SP) 
aN (SP)+ 
TYPE 
$CRLF 
cLRE SCHARCNT 
St: ISR YPEC 
63: CMPB Stele SSP )s 
BNE 2 
MOV $NULL , -( SP) 
73: DEC «ss SP) 
BLT es 
TSR $TYPEC 
ECE soheRc 


;HORIZONTAL TAB PROCESSOR 


S$: MOVB 
: ISR © bTpec 
BITE We SCHARENT 


a ee ee ee ee 
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MESSAGE MUST TERMINATE WITH A O BYT 
UMBER OF NULL ey gle r LIN E FEED. 
1S CHARACTER TO BE USED AS THE FILLER CHARACTER. 
HE NUMBER .OF PILLeR CHARACTERS REGUIRED. 
THE CHARACTER TO FILL AFTER. 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3315 a TERMINAL? 
tTHALT HERE IF NO TERMINAL 
i LEAVE 


SAVE RO 
:1GET AOORESS OF ASCIZ STRING 
;;PUSH CHARACTER TO BE TYEED ONTO STACK 
IT ISN'T THE TERMINA 
siIF TERMINATOR POP IT OFF ue STACK 
i ab Just RETURN PC 
BRANCH IF <HT> 
::BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
7; TYPE 8 CR AND LF 


$s eL GAR rts BL COUNT 
;;GET_NEXT_CHA yrs 


HG i TIME Ae R ILLES CHARS. ? 
sir 8 & OF FILLER cHaRS. "NEEDED 
AND THE NULL 
DUES @ NULL ED TO BE TYPED? 
s3BR f el rey POP THE NULL OFF OF STACK 


YPE A 
$00 NOT COUNT AS A COUNT 
;L00 


‘i 
un & 


as Ms WITH SPACE 
:;BRANCH IF NOT AT 





NDEC*11-DZRJJ-A, REOY/S/§ FUNCT. CONT. 


a3 33A.P1l tyPE ROUTINE 


9962 036 e. Relgce 


$365 03673 105777 
9366 036742 100375 
365° 036744 116677 
9369 036752 122756 
$969 036760 001003 
$975 036762 105037 
837} O367s 00046 
S672 C36r70 122766 
S373 036778 301402 
$374 037009 195227 
ass 637002 900000 
$378 937004 00020" 
Sie 


cS 


142206 


909002 
000015 


037062 
000012 


142209 
COCo02 


000052 


GOS 
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9S 
TST (SP) + 


B 2$ 
$TYPEC: tN aSTPS 


$TYPEC 
MOVE i gt d$TPB 
CMPB wCR,2(SP) 


1$ 
STYPEX 
13: CMPBsoWLF, o( SP) 
BEQ STYPEX 
INCB = (PC) 4 
$CHARCNT: WORD 0 
STYPEX: RTS Pc 
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TAB STOP 
+ SPOP SPACE OFF STACK 
;;GET_NEXT CHARACTER 
;;WAIT UNTIL PRINTER IS READY 


; LOAD CHAR TO BE TYPED INT? DATA REG. 


ita oe ha A CARRIAGE RETURN? 
i ; YES--CLEAR CHARACTER COUNT 


i YIT 
Ts CHARACTER A LINE FEED? 
HIF Y, tie 


; ; BRANCH 
avo} THE CHARACTER 
; CHARACTER SeUNT STORAGE 


SEQ C264 























0000 


08 


peteteteterstetsts 
etstatetsts) 
a 


OODOKHOVOOKOOIOIO0RI00 
SR oe ~0erent Eure 
££ OWONOUWN LOI Ow 


he ne a bs bn ee he es hs eo 
OCONVWVIVWOOVOVOVVWVI0O00UN 


DIRIJA.Pil 


037006 
Baht 
370 


037014 


037026 


037074 


MNOEC=13-D02RJJ-A, RPOY/S/6 FUNCT. CONT. 


try INPUT ROUTINE 


117746 
042716 


001500 


022737 


000451 


000100 


142044 
177600 
600003 


040065 
037026 


034149 
000007 


000176 


000011 
O0lel6 


Bacbte 


o0006e 
142050 


001140 


037006 
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~SBTTL TY INPUT ROUTINE 


ec gpeegnsceenpenncigna-an inanene caer wemsnta: pages 
~ENABL L 

$TKCNT: .WORD Q $s HUREER OF ITEMS IN QUEUE 
$TKQIN: .WORD OQ ;; INPUT POINTER 

$TKQOQUT: .WORD Q ;;QUTPUT POINTER 

$TKQSRT: .BLKB 9. 3;TTY KEYBOARD QUEUE 

ewe 


Je 

if 
i 
: 


3% 


$r 


te 


#8) READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
*IF THE CHARHCTER IS A “CONTROL-C" (tC) $TKINT IS CALLED AND 

UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (OPERSEL) 
bresRv: MOVB  aSTKB -(SP) s sPICKUP THE CHARACTER 

BIC #tC17?, (SP) ::STRIP THE JUN 

CMP (SP), #2 ::1S IT A CONTROL C? 

BNE 1$ :;BRANCH IF NO 

TYPE SCNTLC TYPE @ CONTROL-C (tC) 

ISR PC STKINT ::INIT THE KEYBOARD =. 

TST (SP)+ »;CLEAN U 

IMP OPERSEL ::CONTROL ¢ RESTART 
13: CMP (SP), #7 :1S i NTROL G? 

BNE 23 BRAN H IF NO 

CMP #SWREG, SWR 31S SOF T-SWR SELECTED? 

BEQ $ ::G0 TO SWR CHANGE 

CMP #9. ,.STKCNT $318 THE QUEUE FULL? 

BNE 33 s BRANCH IF 

TYPE SBELL TRING THE T Y BELL 

IST i P+ ::CLERN HE ARACTER SF OF STACK 








its ANI TIS Lge ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
SSETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


CALL: 
J PC, STKINT 
RETURN 

KINT: CLR STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 
MOV gS TKOSRT NU : IMOVE THE 7h oe? G ADDRESS OF 


THE 
MOV STKGIN, STKQOUT $:QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV See aaTKVEC $3 2NITI aise THE KEYBOARD VECTOR 

MOV #200, a8 TKVEC 3;"BR" LEVEL 4 














TST asTKe CLEAR DONE FLAG 
MOV #100, 2$TKS ENABLE TTY KEYBOARD INTERRUPT 
RTS PC ::RETURN TO CALLER 


*TK SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 


OZRIJA.P11 


037312 


037314 


037346 


037350 


037372 


037400 
037404 


037410 


021ge7 


001300 


123727 


112737 


194400 
104400 
013746 


MNDEC=11-DZRJJ-A, RPOY/S/& FUNCT. CONT. T 
tty INPUT ROUTINE 


000023 
141742 
141734 


141730 
177600 


000021 


000100 


037006 
000140 


000175 


099049 


027010 
037014 


000176 
141614 


141610 
177600 
009007 


001134 


037026 
141552 
000001 


040077 
040104 
000176 
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£3,823 
JSTKS 
(SP)+ 
asTksS 
31$ 
JSTKB,-(SP) 
etC17?, (SP) 
{0+ he] 
#100, d$TKS 


$TKCNT 
ee 


(SP), #175 

4§ 

#40, (SP) 

(SP3+, ISTKQIN 
STKGIN, #STKQEND 
#$TKGSRT, STKGIN 
© SLEREREKASRALHEFA ALES ARE SRA SLES FS RSLS HASR HRA RLSSSSS SA FEAL SRS SESSE 
TASOFTWARE SWITCH REGISTER CHANGE 
RO 15 ENTERED FRON THE 


ete: THE TEST FOR CHA IN 
, 0 OPERATING IN TTY INTER 
: CMP #SWREG, SW 


pp RRR EKER RARE EERE AREER EAR EK EEE RH RARE AK EAA RR RE REA AEAA BARR ERE ES 
;#CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY ibe SERVICE 
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
j sCONTROL- Bee ea TOR eae THE ya SWITCH REGISTER BEING SELECTED. 


(SP) 

pc STKINT 
astKs 

#1, $INTAG 


D 


SMSUR 
aiReG. -(SP) 


ROUTINE. 
TRAP_HANDLER 
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315 11 A CONTROL-5 
i} Tense TTY KEYBOBRO INTERRUPTS 
ti CLEAN CHAR OFF STA 
:WAIT FOR A CHAR 
{:LOOP UNTIL ITS THERE 










BRAN 























ND PUT N QUEUE 
{| UPDATE ty | POINTER 
330 OFF iN th D? 


; BRANCH 
i TRESET THE POINTER 
; RETURN 


+s 












WILL 
30F THRE Santen REGISTER TRAP 
: "THE SOFT -SWR SELECTED 
riBx Q Hak WAITING? 
OT, EXIT 













GKE IT ?-BIT ASCII 
He IT A CONTROL-G? 
:TF NOT, PUT IT IN THE TTY QUEUE 
::AND EXIT 














s3RRE WE RUNNING IN AUTO-MODE” 
SBRANCH TF YES 

CLEAR CONTROL-G OFF STACK 
'FLUSH THE TTY INPUT QUEUE 

IDTSABLE TTY KEYBOARD INTERRUPTS 

:{SET INTERRUPT MODE INDICATOR 


ECHO THE CONTROL-G (tG) 
:; TYPE CURRENT CONTENTS 
;SAVE SWREG FOR TYPEQUT 


















DIRIIA.P 


1008: 37414 
ines : Bae 


037432 


037434 
394 037440 


037444 
0 


OwWwWD 
~ 


037500 


037504 


Pa ee ae ee ee ne ae OT ne OT ed nd mend nd ed ed end nd rd ed ed ed ed ed ed ed Ded ed ed ed ed ed ed ed ed ed ed ed ede ee ee eee 
00 NOUN £ OT OW NM U1 £ OI OW 1 OU Ot OW 
oO 
GJ) 
~J 
uw 
1) 
Oo 


CIC IIE IIEICIEI CET UTITUR TUN IUT Ue —+-b- bb (QOOO0I0000M 


wWooONME + ore 
oO 
Ww 
“I 
o 
Ww 
o 


037654 


MNNOEC- oo “A, RFQ4/S/& FUNCT. CONT. 


tty INPUT ROUTINE 


104401 


100375 


117746 
042716 


Q é¢ 
000137 


021627 


oo0737 


021627 


009720 


040115 


141522 


141506 
177600 


7 - 000003 


040072 
000008 


oco0is 
oo00o4 
000002 

O€ 


3 
001135 
000100 


036736 
000069 


000067 


000060 
000002 


Oc0002 
177776 


001222 


000001 
141444 


141372 


000901 
141350 


19$: 


"$ 
f . 
‘ . 


208: 


«178: 


18$: 


TST-PT 2 





#100, 2$TKS 
OPERSEL 


(SP), #25 
» $CNTLU 
Pp 


(nants "D 
v0 . 


‘re e aSWR 


te 
153 


#100, astKs 


PC, STYPEC 
(SP), #60 


tae’? #67 


ie0 (SP)+ 
(SP) 


“J 1 Ey ee 
OL 
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HERE’ es 
iF NOT TRY AGAIN 





SEQ C267 
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;3G0 eee Hen or gerne DIGITS) 
;;PROMPT FOR_NEW SUR 

;; CLEAR COUNTER 

i THE NEW SWR 





;;PICK UP CHA 
;;MAKE IT SBT ASCII 


3;IS IT A CONTROL-C? 
:iERC. CH IF NOT 
i AFP AN e's noe -C (tc 
REEL ty KEYBOARD INTERRUPTS? 


ALLOW TTY ee Ye paRO INTERRUPTS 
;;CONTROL-C RESTAR 


H IF NOT 
SIYES. ECHO CONTROL-U (tU) 
+ TGRORE PREVIOUS INPUT 
file? S TRY IT AGAIN 
2:18 1 a ceR>? 


Te gee F_NO 
WY veer FIRST CHAR? 


ag UP STACK 
-:RE-ENOBLE TTY ‘aD INTERRUPTS? 


: BRANCH IF 
7: RE= ENABLE TTY KBD INTERRUPTS 


:  SRANCH o YES 





:TYP F) 
SIMULATE CONTROL-U 





wks 


UNUIUN © oo 
OO IM U£COITU-O00 “IO 


QNUTUIUTUTUT 


£000,000 00 0900 0000000000 III INNO OOO rrr ore 
OSS SRR Lore! o.0d orl 2 conde Cue der UTE Conor > 





037656 
037650 


037744 


037746 


try INPUT ROUTINE 


J11846 


Ole? 
000002 


005737 


000092 


010346 
012703 


"staal RFQ4/S/6 FUNCT. CONT. TST-PT 2 


000004 
ooco04 


037702 


037006 
037006 
637012 
o37012 


037014 


040054 
O4OCES 


000177 
001222 
040052 
040052 
000015 
177777 
001ee4 


000004 
040054 


MACYL1 27(655) 


pp RRR REE RR EKER ERE R EEE EEE H EES ERE RARER ER EEE RE EEE EERE 
Sue ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


i ;;UPDA N 
STKQOUT, #STKGEND ;;DID IT GO OFF OF THE END? 


28: RTT 3 
gt ERE KEKE ER EE EEA AEE EERE RIK RARER ER EAE RARE EERIE EE RARER REE EER EE EE 
s STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 

+ 8 


»R3 
S$TTYIN+9. ,R3 
4$ 


oo 
oOo 
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;;GET_A CHARACTER FROM THE QUEUE 
;;CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


;;PUSH DOWN THE PC AND 


GET READY FOR A CHARACTER 
ON STACK 





;;DECREMENT THE COUNTER 
33 E MO NENTER 


;;INPUT A STRING FROM THE TTY 
;;AOORESS OF FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 


$3 YES 
::GQ0 READ ONE CHARACTER FROM THE TTY 
:;GET CHARACTER 
:3;I1S IT A RUBOUT 

IF NOT 


{ICLEAR THE SUFFER AND LOOP 
;;ECHO THE CHARACTER : 


;;CHECK FOR RETURN 

;;LOOP IF NOT RETURN 

::CLEAR RETURN (THE 15) 

:; TYPE A LINE FEED 

; RESTORE R3 

;;ADJUST THE STACK AND PUT ADDRESS OF THE 
$3 FIRST ASCII CHARACTER ON IT 








> + b+ b+ bo b= bo ps po pope 
QoQ 

QOOdOOOwoOwWWOWw 

WN£OITU-OWM~IM" 2 


DZRIJA.PL21 


040050 


O40115 
O40ize 





000002 
000 
000 

000011 

052536 
136 

005015 

020075 
O40 

036440 


MNDEC*12-D2RIJ-A, RPOY/S’& FUNCT. CONT. 
tTy INPUT ROUTINE 


00&S03 


047040 
000040 
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ree ASCII CHAR. TO TYPE 
age tee FOR TTY INPUT 


Mm NMNINIM 





“yeaa eae 


=e) Slelaislaratstetete: 

- : a J La) as) ae 

Sees 
“+b F-90900) 3% 

OW NOUN GIT OWD IO ULE Tl-OWD- 0 


Ub -+ +0 o 


ICOIMIOOe 


Urorunons 


Gouorururururururrorur 
+r 
—- + 


eso L£oooWr 
oO s+ 
oOo 


Or--QO000-O0000 
Or OO C0 
“S£LOOOO 
© 


Furururorurororororon 


OOoOooo 


furororr 
oe = hot tet od) ter 
tt 


OOO 
rorurny 
EWwive-OOONMm 


3 


Oh * b= b+ b= 8 + + 2 hs 2 0 FB * he Bo hs bs 0 ho Bo Be Fh = ho he ee 
fore 


eet et et ee ee 
OM 
frorurorfurororuru 
A Ab ky he tae 
co NO On ou 





“8 FUNCT. 
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OCTAL NUMBER FROM THE TTY 


000004 000 


040254 


COOCED 
000067 


177770 


000012 
040264 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


5 ERERARARASRAEREREAE ELAR A LEAK EERE EEA EREE SEE EEE ELEPEEREEEEAEEES 
:STHIS sDOUL INE Hit iL ta AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


:#0CTAL pach ls. iF AN ILLEGAL ARACTER IS READ A?" WILL set veo 
*#FOLLOWED BY A CARRIAGE BET ORS oC INE FEED. THE COMPLETE NUMSER_MUST 
saTEN RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
ALL 


:# RDOCT :;READ AN OCTAL NUMBER 
:% RETURN HERE ::LOW ORDER Bits ARE ON TOP OF THE STACK 
% ::HIGH ORDER BITS ARE IN $HIOCT 
SRDOCT: MOV (SP) ,-(SP) s sPROVIDE SPACE FOR THE 
MOV 41 SP} 2(SP) :: INPUT NUMBER 
MOV RO, -(SP) ::PUSH RO ON STACK 
MOV R1.-(SP) :;PUSH R1 ON STACK 
MOV Re. -(5P) ::PUSH Re ON SIAC 
18: RDLIN ;;READ AN ASCIZ 
MOV (SP)+,R0 $3GET BOORESS OF 1ST CHARACTER 
MOV RO,5$ :AND SAVE 
cL Rl CLEAR DATA "oro 
23: Hove (RO)+, =(SP) Be 5 S CHARACTER 
CMPB «#0, (SP) ;MAKE SURE THe CHARACTER 
BST 43 aa AN OCTAL DIGIT 
CMPB saw" 7, (SP) 
BLT 4g 
ASL Rl 33#2 
9 Ro 
ASL Rl 7384 
ROL RS 
ASL Ri 33*8 
ROL Re 
gic 8tC7, ($F) ::STRIP THE ASCII JUNK 
BoD SSP), Rl 300 IN THIS DIGIT 
- 33: TST (SP )+ *:CLEAN TERMINATOR FROM stack 
Moy R1, 12(SP) -:SAVE THE RESULT 
MOY Re SHIOCT 
MOV (SP)+,Re ::POP STACK Into R2 
MOV (3p)! RI Hs STACK INTO RI 
Mey (SP)+:R9 :POP ubyrek INTO RO 
48: TS (SP)+ ¢ RE TUR PARTIAL FROM STACK 
CLR (RO) 336 @ TERMINATOR 
TYP TYPE UP THRU THE BAD CHAR. 
cs: .WORD 60 
TYPE QUES no “on” 6 LE" 
R { RY AGAIN 


. oT 
: THIGH SBOER BITS GO HERE 








44) 55 


ts 


SII IO COOK rw 


rt nt itt sc A Pe DP BPN om Mee Ads a 


Wat het a tS few 


OMrurorurorororurorororurororururorururorarorurorururaronnitury 
Sorin Pritittete Witrceet itt pat nt itset me Mit 


fu 
w 
co 


+--+ 8 + bb = b+ Fo 0 8 0 + + + B+ = 8 bs oe bo oe 
Oo 


om 


abi 
A.PLl 


0266 
40266 


040270 
70 


040432 


ae a + 


-DZ2RIJ-A RFEOS 
RROS uENRLES = 


104406 


012737 


013716 
000002 


$6 


177 77 


001103 


091102 
002089 


001216 


020000 


040435 
001223 


140542 


001000 


001110 
001214 


001214 


FUN 





T. CONT. 
OUT INE 


004632 


140630 
140620 


140526 
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-SBTTL ERROR HANDLER ROUTINE 


© ERSRAFSSSERLSSSSEAS SRSA SSSA SESE SSAE SSS FSSSSSSSESLES SSS SEAFASSFSS 
:ATHTS RO TINE WIth INCREMENT THE ERROS FLAG AND THE HE _EBROR COUNT, 
eae THe es Roe Uren Ny N if F AND THE ADDRESS OF THE ESROR CALL 

: #THE SeITeH SPTiohe aye BY THIS ROUTINE ARE: 


;*SWIS=] T_ON 
:*5W13=1 INHIBIT ERROR TYPEOQUTS 
:*5W10=1 BELL 
s #0981 ite SH EoRce 
3 FURL 
:# ERROR ON ;;ERRORSEMT AND NERROR ITEM NUMBER 
SERROR: . 
CKSUR ;;TEST FOR CHANGE IN SOFT-SUR 
REGSAY: 
MOV #-1, J8ERFLG ;SET ERROR FLAG 
REGSAL: 
7: INCB =: SERFLG 13567 THE ERROR FLA 
EQ 7§ :DON’T LET THE FLAG GO TO ZERO 
MOV STSTN, aQISFLAY :;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #8I1T10;3SW ;;BELL ON ERROR? 
BEG 1$ 33NO = 
TYPE SBELL :;RING BELL 
1S: INC $ERTTL : ; COUNT HE NUMBER OF ERRORS 
MOV (SP), SERRPC SIGET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
MOVE a$ERRPC,SITEMS $181 AND Save THE ERROR ITEM CODE 
BIT #81713, dSWR SKIP TYEEOUT IF SET 
BNE 03 KiP T au 
ISR PC, SERRTYP He TO USER ERROR ROUTINE 
A TYPE =, SCRLF 
2s: TST ISWR ;;HALT ON ERROR 
BPI 33 $3 SKIP IF CONTINUE 
HALT ON ERROR! 
CKSWR :;TEST FOR CHANGE IN SOFT-SWR 
33: gr! #81709, ISWR $1 S08 On ERROR SWITCH SET? 
MOV $LPERR, (SP) : sEUDGE RETURN FOR LOOPING 
4S; q3I SESCAPE 3; CHECK FOR AN ESCAPE ADDRESS 
a MOV SESCAPE,(SP)  ;;FUDGE RETURN ADDRESS FOR ESCAPE 


; ;RETURN 












em em ee Oe ee ee Se ee 
















MNOEC <i, -D2RI7-8, REDS S & FUNCT. CONT. TST-PT 2 Macy] 271655) 30-ae-7— 18:59 Pace 224 
ore slab ih fee08 MONDLES SOLTINE 

wile LL PSSSEEESERSSEEEESEEESSE SESE ES EEESESESESESESE SEES EES ESSE SESS OSS 
to308 

1318 TTL ERROR MESSAGE TYPEOUT ROUTINE 

ek Ft eTHIS ROUTING USES. THE “ITED Cony we BYTE™ (ITEMG) Ty. DETERUINE yet 
1b3i3 : #ERR CE Q BE REPO IT THEN S., OM TWE "ERROS ThOLE” (geeere), 
losis #QNnD RE 5a SPPRD Biare yas GQ tion “ NCERNING THE ERSS 
iis telT IS A coe Y ue I SERRTY JBROUTINE FROM SYSMAC. 

tosis eh ITH oY 

Eis Rae RESTS? af A io ny rae fees ef oR REPoe Aap THE ERROR 
owe r4 hp -) Q i V r% es 

3315 See TE ee ONE Ne EORSR The Sat EN Nu 

103¢9 Lf Teas THE PREV! ats RROR OES in 3 afte oe Te ee 

sxsei 3 SAND NOT THE ERROR MESSAGE aie MeaceR 

12323 O4ON3s 000000 PRITEM: 0 sPREVIOUS ITEM NO. LOCATION 

ews 

10325 040436 O1T7T4E 140476 SERRTYP: MOV SHR, =(SP) :GET SWITCH SETTING 

iSSz6 O4044e2 aecie 177277 BIC etc5b0, (SP) KEEP Ney SWITCH @ AND & 

ide? O40446 Oee7e6 900100 OME asWOb, |SP)+ 15 6 se AND & RESET 

i038 O404S2 901001 BNE 13 :IF NOT BRAN 

10323 O40s6$ 995452 58 2g > BRANCH IF By & I$ SET AND & RESET 
10330 O4048s 000137 041376 is: IMP aaTYPERR :JUMP IF SW IS SET 

15331 E : :OR IF SW & IS RESET AND SW & IS RESET 
Heck D442 es: 

ousd 

i335 osose2 osso0 = o4o47o TYPE S$ : Tye ASCIZ STRING 

10325 O4O4e— O0040s gE bug $3GET OVER THE ASCIZ 

10336 2658: .ASCIZ <15><12>/RHWC = 

10337 o4os04 bag: 

10338 049504 013746 ooze2s4 MOV JeWc, -(SP) :GET READY TO TYPE RHWC CONTENTS 
12333 O#05ic 10440] TYPOC 

10341 

1O34E 40512 104400 o40520 TYPE $7 :; TYPE ASCIZ STRING 

15245 O40516 Sd0406 ; 35 b6$ SiGET OVER THE ASCIZ 

10345 | ' 22678: ASCIZ (15>(12>-RHBA = | / 

15s45 40534 cs bbs: , | 

1O34E O40554 013746 02256 MOV 288A, -(S5°) sGET READY TO TYPE RHBA CONTENTS 
10347 640540 ro44ol TYPOC 

a 

10350 O40S4e 104400 O40550 TYPE 69$ »:TYPE ASCIZ STRING 

10251 O40S4—6 Goo406 Be bag ;3GET OVER THE ASCIZ 

15352 »-69$: .ASCIZ <15)<12>/RHCS2 = 

10353 owoses 66s: 

10354 O40564 013746 cOzze0 MOV aecs2,-(SP) sGET READY TO TYPE RHCS2 CONTENTS 
15365 040870 104401 TYPOC 

[535e 

10367 

10358 040572 104400 O40600 TYPE 718 33 TYRE ASCIZ STRING 

10352 O4057E 0040 | es: S:GET OVER THE ASCIz 

12369 73718 ASCIZ <«15><le>/RHCS1 = 


ee — — - ar ee a nee eee oe er oe 
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fu 


MNDEC*i3-D2RII<8, REO4 SB FUNCT. CONT. TST-PT 
DDRTIA.PL1 ERROR MESSAGE TYPESUT ROUTINE 
10361 O80814 (Goatees 708: | 
10362 O40614 O13746 cos2b2 MOV aecS1,-( SP) :GET READY TO TYPE QHCS1 CONTENTS 
tOa63 045620 10440! TYPOC 
15384 
LO3Es 
1236 O40622 104400 040630 TYPE =. 738 s;TYPE ASCIZ STRING 
1ia67 Osdgis O0040s a ee 3 _ $$GET OVER THE a5cIz 
ti3ée ) qi738: -ASCIZ <1S)<12>/RHDSL 27° 
1536S os0844 23: 
10370 S4de44 033746 o02204 MOV ae0S1,-(SP) “GET READY TO TYPE RHDS: CONTENTS 
10371 O406s¢ 104401 TYPOC 
16378 
10373 
LOS7S osces2 108400 OsDEED TYPE =, 758 :: TYPE ASCIZ STRING 
1o37s S4deEE S0osd6 BR Pug -:GET OVER THE ASCIZ 
12278 " gigs: -ASCIZ 15) 12) /RHERL 5° 
10278 O4de7s O13746 O0e264 MO\ DeERL, - (SP) sGET READY TO TYPE RHERI CONTENTS 
- 1557S O4d?00 id4so! TYPOC 
10380 
1038} 
i382 oO4CTOE 104400 «O4O710 TYPE 77 :: TYPE ASCIZ STRING 
10383 O4o7Ce O0040e aR a} -:GET OVER THE ASCIZ 
10384 ag778:  /ASCIZ «18> «12> /RHER2 2° * 7 
15385 o4o724 3 *ES: 
| {5586 Sa8cs4 o1ar4e ooe27o MOV DeER2,-(SP) :GET READY TO TYPE RHER2 CONTENTS 
10287 Os0730 10440] TYPOC 
10388 
10388 : 
10280 oso732 104400. O¢O74O TYPE =, 798 >: TYPE ASCIZ STRING 
$039] 649736 d00406 BR dog 3:GET OVER THE ASCIZ 
10392 -279$:  .ASCIZ <15><12>/RHERQ =”) | 
10393 O4O7S4 ao: 
10304 640754 013746 o02276 MOV 38ER3,-(SP) sGET READY TO TYPE RHERS CONTENTS 
1039s O46760 10440! - TYPOC 
| 19396 
| 19397 : 
| 10398 o4OTs2 104400 04077 TYPE 81$ :;TYPE ASCIZ STRING 
| 19399 O40766 O004ce BR «BOS _. ?3GET OVER THE AScIZ 
| T6400 pp2l$: .ASCIZ <18><12>/RHDST =°°/ 
| 10401 41904 543: . 
| 10452 041004 92374 o0z2ee MOY aeDST,-(SP) sGET READY TO TYPE RHOST CONTENTS 
| 10403 O4i0io 18440 TYPOC 
| 15454 
| 1O405 
| ID4DE o41012 104400 o41020 TYPE 838 s;TYPE ASCIZ STRING_ 
| 10407 O41016 SO040E : 2$ -:GET OVER THE ASCIZ 
| iste --03$: .ASCIZ <15)><l2>/RHCA = *. 
| 26458 41034 823: 
' 30810 41924 O12746 002274 . MOV DacA, -(SP) :GET READY TO TYPE RHCA CONTENTS 
| 10412 O4i04C 10440! TYPOC 
|: +Buts 
6415 o41D42 104400 OM41050 TYPE, 958 s:TYPE ASCIZ STRING 





041230 
041232 
041236 
041254 


D4 1262 
041256 


041304 
041304 
041310 





p2RII- “A, REOY SG 
ERROR MESeacE 


000406 


013746 
10440) 


104409 
OOO4O& 


13746 


104401 


104499 


009 0& 


013746 
104401 


104400 
000406 


013746 
10440) 


194400 
DO0406 


013746 


104401 | 


002316 
04240 
O023ie2 


041270 


002314 


- 
I 


YPESUT pacsidasi: 


:97S: 


abs. 


»291§: 


::938: 


FUNCT. CONT. TST-PT rs 


BR 
eASCIZ 


MOV 
TYPOC 
TYPE 
Es 
.ASCIZ 
MOV 
TYPOS 
TYPE 
$s 
ASCIZ 


MOV 
TYPOC 


TYPE 
BR 
.ASCIZ 
MOV 
TYPOC 
TYPE 
-ASCIZ 
MOV 


TYPOC | 


TYPE 
38 
-ASCIZ 
MOV 
TYPOC 
TYPE 
ct 
ASCIZ 


MOY 
TYPO 


MACYI1 27(65S) 


84s 
(1$><12>/RHAS = 


aeas, 


7s 
beg 
(15><« 
aa0F, 


89s 


8$ 
«5>< 
aaMR, 


93$ 
423 


-(SP) 


12> /RHOF 
-(SP) 


12> /RHMR 
-(SP) 


(155<£2> “RCT 
aecc,- (SP) 


95$ 


4$ 
(15><12>/RHECL = 


deECi, 


97$ 


~(SP) 


=} 
(15><12>/RHECe = 


aeECe, 





-(SP) 


30-N@R-76 18:59 PAGE 226 
:;GET OVER THE ASCIZ 


:GET READY TO TYPE RHAS CONTENTS 


:;TYPE_ASCIZ STRING 
+3GET OVER THE ASCIZ 


;GET READY TO TYPE RHOF CONTENTS 


YPE ASCIZ STRING 
Hider OVER THE ASCIZ 
;GET READY TO TYPE RHMR CONTENTS 


>; TYPE ASCIZ STRI! Nt 


33GET OVER THE ASCIZ 


;GET READY TO TYPE RHLA CONTENTS 


+3 TYPE Aacle TR 


NG 
33GET OVER cIz 


STRI 
HE AS 


;GET READY TO TYPE ReCC CONTENTS 


33 TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


;GET READY TO TYPE RHEC1 CONTENTS 


.3 TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


;GET READY TO TYPE RHEC2 CONTENTS 


























SEG 0274 







Q0929® 
= 


Mock 


O-* b-- + &< & + § -- &—< Bp op e 


one 


COUNT COTO ONTOTOTOTOTON UU 
NOUS & 


RRR ONIVIAVMIOAIIAIMOOIO0N0 
TUTUM be +0 +o COI OW 


= = hs he ho 8 


fr OW NOU £orue- Ow 


OooRI0O0O0% 
COCFTCRICTCTOTGN 


“DZRIIA.P LL 


BSE Ao 


41340 
O4i34e 
041346 
041364 


041364 
041370 


O414i4 


MNDEC*12-D2RJJ<-A, REOW.S“6 FUNCT. CONT. 


ERROR MESSAGE TYPEOUT ROURINE. 


002306 


041350 


002310 


040434 


001223 


001114 


001116 


040434 
041466 


001223 
041504 


001223 


MACY11 27(65S) 


998 


= 
€15>< 12> /RHOT 


de0T,-(SP) 


101$ 


O0$ 
<15><12>/RHSN 


aaSN, -( SP) 


aePRITEM 


SCRLF 


85, -(SP) 

RD 
DeSITEMB,RO 
1$ 


SERRPC ,-(SP) 


RO 

el RO 
Ro aePRITEM 
(RO}+, (RO)+ 


RO ret TEM 
it B0)+,¢ 


0 

, SCRLE 
(RO}+,4$ 
5$ 


—— 
(RO)+ 


3O-NAR-76 18:59 PAGE 227 SES 0375 


+ TYPE ASCIZ STRING 
33GE7 OVER THE ASCI 


;GET READY TO TYPE RHDT CONTENTS 


STRI 
3687 OVER THE AS 


;GET READY TO TYPE RHSN CONTENTS 


;CLEAR PREVIOUS ERROR ITEM 


:PICKUP “ERROR ee on PeANTER 

;TY RROR ie? Go 

;"ERROR MESSAGE” P OINTER gor? HERE 
IAGE RETURN” $ “LINE F 


SUP 






z 






TYPE ASCIZ STRING. 






CORR EASE RETURN” 3 “LINE FEED” 
PICKUP THE ITEM INDEX 


IF ITE NUMBER IS ZERO, JUST 
:TYPE THE PC OF THE ERROR 

-SAVE SERRPC FOR TYPEOUT 

:ERROR ADDRESS 

$30 TYPE--OCTAL ASCII(ALL DIGITS) 


:AJUST THE INDEX $0 THAT IT WIL 
ORK FOR THE ERROR TABLE 








iF ORM TABLE POINTER 

;WAS Ang te. ERROR SAME 
BRANCH IF _N 

; POP Ro OVER EM AND DH 


7SAVE NEW paren ITEM 


PI GUS ep ale f URADER™ POINTER 


te “DATA ayn 
"DATA HEADER” POIN TER GOES HERE 
# “CARRIAGE RETURN” & “LINE FEED” 


;SAVE RI 
;PICKUP ohare TORE POINTER 
BR IF NO DAT SE TYPED 

; PICKUP “para "eageagt GSTNTER 
»*OCTAL” OR "DEC IMAL 








FOb 










MNOEC=i1- zRIJ-8 RPOQ4.S/6 FUNCT, CONT. TST-PT 2 © MACYLI 27(655) 30-MAR-76 18:59 PAGE 229 SEO 0276 
DPRITA.PL ERROR MESSAGE TYPEOUT ROUTINE ‘ 

l 1 0100 BNE 7S FO 

igee? But 2¢/ perce : MOV a(R1)4+,-( SP) LA A epee TYPEOU 

10525 942830 ioMOL TYPOC (50 TYPE -OCTAL ASCII: aL OIGITS) 

10538 41532 d00402 BR ag , ‘ 

155e7  O41ES4 le 

1a35s uiese rath WyPDS gia yee e Dec Tne eery T WITH SIGN 

16530 Ba tEa8 ey 38: TST (RL) He The RE Bait B NUMER? 

10531 941542 901403 BE ag 

10532 O41544 1O440D O41SE0 TYPE 18 Free risi2) SPACES 

10833 041880 000764 BR b§ ;LOOP 

10535 o41SSe 012601 93; MOV (SP)+,R1 ;RESTORE 8 

10536 041554 612600 it$: MOV (SP }4°RO CARRIAGE dS ETURN 3 “LINE FEED" 

10537 941556 000207 RTS pC RET 

1053e 6415609 S20040 000 118: . ASCIZ | : THOC ay SPACES 

10539 o4i564 ; "E 
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DZRIJA.Pil . ERROR MESSAGE TYPESUT ROUTINE 








10541 | ~  .SBTTL BINARY TO OCTAL ‘ASCII) AND TYPE 








1 43 : = RKSRHSSSAESRSSRSSSSRAASLEL AFL ALS SSS SLA SLSFFSSARSRSAAA EELS LASS ASE 
10545 :&THIS ROUTINE IS USED TO CHANGE A 1S-BIT BINARY NUMBER TO A &-DIGIT 
LOS45 :*OCTAL (ASCII) NUMBER AND T 
10538 | : 8 1YPC OS---ENTER HERE TC Bete E elobRess ZEROS AND NUMBER OF DIGITS TO TYPE 
be Fe ; #CA 
10548 . MOV NUM, -(SP)- :NUMBER TO BE TYPED 
10549 :* TYPOS Hah FOR TYPEOUT 
10550 :* .BYTE ON 10 &.FOR NUMBER OF pISITS TO TYPE 
10551 ;* BYTE M&M t Nz] OR OQ. 
10552 i s;1=TYPE LEADING ZEROS 
10553 :* ;;O0=SUPPRESS LEADING ZEROS 
15&5s i #STYEON--- “ENTER HERE TO TYPE OUT WITH mM SAME PARAMETERS AS THE LAST 
10556 i SST YPOS OR $TYPOC 
1558 by MOV Wa, (9F) ::NUMBER TO BE TYPED 
itSs3 is TYPON TiCALL FOR TYPEOUT 
10561 | ¥#$TYP0C-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
10563 " MOV NUM, -(SP) :;NUMBER TO BE TYPED 
igbeH tk TYPOC *:CALL FOR TYPEOUT 
u . a 
10566 O41584 O17646 O00000 STYPOS: MOV a(SP),-(SP) 3 3PICKUP_THE MODE 
1058? 041570 116637 600001 o42007 MOVB J/5P)/$OFILL :L0Q0 ZERO FILL SWITC 
10588 O41576 112637 D422] «QNG 2 (SPD SOMODE+1 NUMBER OF DIGITS TO SypE 
10569 O41602 Gte71b DDvDbe ADD #2, (SP) ::ADJUST RETURN ADDRESS 
105709 O41606 900406 3 STYEON 
10571 O41610 112737 O00001 oO42007 $TYPOC: MOVB #1,$0FILL :;SET THE ZERO FILL SWITCH 
10572 O41818 112737 909906 642011 MOVE #6, SOMODE+1 ::SET FOR ) DIGIT 
10573 041624 112737 000005 O42006 §TYPON: MOVB #5, SOCNT 33SET THE ITERATION COUNT 
10574 o41632 O10346 MOV R3,-(SP) ::SAVE R3 
10575 941634 010446 MOY RY’ -(SP) $3 SAVE RY 
10576 O418S S1OsHe MOV RS. -(5P) SAVE RS 
10577 O41840 113704 oO42011 MOVB SOMODE+1, RY ;;GET THE NUMBER OF DIGITS TO TYPE 
410578 O41644 605404 NEG 
10578 O41646 062704 o00006 ADD Re. $s SUBTRACT IT FOR MAX. ALLOWED 
10580 O41652 110437 042010 MOVE = RY. SOMODE ::SAVE IT FOR US 
10581 O41658 113704 942007 MOVB  $OFILL,RY ::GET THE ZERO FILL SWITCH 
10582 O4166e O1E69S Ooddile ee MOV 12(SP).R5 ::PICKUP THE INPUT NUMBER 
10583 41666 005003 CLR R3 :;CLEAR THE OUTPUT WORD. 
10584 941670 606105 1: ROL RS 3 ;ROTATE NSB INTO "C* 
10585 041672 900404 BR 33 0D 
10526 O41674 006105 23: ROL RS FORM THIS DIGIT ‘ 
10587 41676 006105 ROL RS 
19588 041700 906105 ROL RS 
10589 O4170e 610503 MOV R5,R3 
10530 041704 005193 3S: ROL R3 +3460 (38 QF THIS DIGIT 
105S1 041706 105337 o42010 DECB  $OMODE TYPE THIS DIGIT? 
10592 O4i7l2 100016 BPL F 
10592 O4i714 042703 177770 BIC #177770,R3 BR RID OF JUNK 








Wey a a7 eg RFO4/S/’6 FUNCT. CONT. TST-PT 2 
OZRIJA. TO OCTAL (ASCII) AND TYPE 


10594 
10595 


- 
, 


~ 
© 
uw 


Oorruwdm Fo anak 


+b bd CC OIC) 


OHOIIOGIOOOO0000000000) 
JICIC ‘ JIC) © 
Hatatiatiateatiat at atiatiat ad tediatha a 
“IOP Un Gotu (..000~ 


BINARY 


Bult pbs 


e002 900002 
O4e004 O00 
pye005 900 
D4s008 900 
542007 


009 
Y#2010 000000 


042006 


000002 000004 


&$: MOV 


8$: BYTE 


-BYTE 
SOCNT: .BYTE 
SOFILL: .BYTE 
SOMODE: .WORD 
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7, 
) rHCSP) 
+! 








HO6 
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30-NAR-76 18:59 PAGE 230 


ys TEST FOR 


33 ; SUPPRESS Burs 0? 
YES 


+yER YY 
:1DON T_SUPPRESS ANYMORE 0°S 
MAKE THIS DIGIT ASCII 
AKE Boett o NOT ALREADY 


ame FOR T 


OQ TYPE THIS DIGIT 
BR IF MORE TO DO 


;8R I 
t P TNSURE LAST gir t ISN’T & BLANK 
330 00 THE LAST DIGIT 

ESTORE RS 


{RESTORE Ry 
STORE R3 
::SET THE STACK FOR RETURNING 


RETUR 
tTSFORAGE FOR ASCII DIGIT 
;: TERMINATOR FOR TYPE ROUTINE 
S:0CTAL DIGIT COUNTER 
:i2ERO FILL SWITCH : 

;3NUMBER OF DIGITS TO TYPE 








Sieh 


G&Jfuturn 
+-Owo~s 

oQ 

£ 

tJ 

© 

tw 

tu 


is 
2 
S 
fu 


042044 
042046 
, pis pee 


oz! 060 


“prRII- “A, REOY S/S FUNCT. CONT. 


trap peconer 


036566 
041510 
041554 
041624 
036342 


037404 
037314 


033506 


000002 


042034 


TST-PT 2 





MACYI1 27(655) 


-SBTTL TRAP DECODER 


+ RRRKRRRERER FEES SOLS REAL ELE TELE HE KELEES SESS SSE EEE LER EL ELELE LES ES 
PATHS eh WiLL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
TQ INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


:*AN ND USE IT 
:#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:#G0 TO THAT ROUTINE. 


STRAP: 


RO,-(SP) 
(SP), RO 
(RO)’ 
(RO), RO 

RO 


$TRPAD(RO? ,RO 
RO 


-SBTTL TRAP TABLE 


y*THIS TABLE CONTAINS THE phe CQCRESSES GF SHE ROUTINES CALLED 


;*8Y THE “TRAP” INSTRUCTION 


éxn600: 


ROUTINE 


TYPDS 
SSTSWR 


3; CALL=TYPE 
3 CALL=TYPOS 
;CALL=TYPON 
: SACCeTYPDS 


;;CALL=GTSWR 


one CKSWR 
: a > CAL L=ROCHR 


: CALL=ROOCT 
:;CALL=WAT 



















StS 0279 


30-MAR-76 18:59 PAGE 221 


; SAVE RO 
GET MiP By ADDRESS 


;BACKUP BY 
:3GET RIGHT BYTE OF TRAP 
5 aba tN FOR INDEXING 
; INDEX TQ TABLE 
3360 TO ROUTINE 


TTY TYPEQUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING aBn0S) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 
ies! FOR CHANGE IN SOFT-SWR 


TRAP+0( 104400) 
TRAP+1 (104401) 
TRAP+2( 104402) 
TRAP+3( 104403) 
TRAP +4 ( 104404) 


TRAP+5 (104405) 
TRAP+6( 104406) © 


QUTIN 
TRAP+11(104411) READ AN OCTAL NUMBER FROM TTY 
TRAP+12(104412) DONT ADD ABOVE THIS TRAP 





MNDEC=13-DZRJJ-A, REOY, 


— 
OQ 





/& FUNCT. CONT. TST-PT 2 


WN AND UP ROUTINES 


137022 


042232 


042134 


O4ee26 
e 


042232 
136754 


DYedbe 
000349 


047520 


000024 


000024 


00024 
00026 


042527 


-SBTTL PUWER DOWN AND UP ROUTINES 


$y RREARER AREAS LER RAL ERA AS LA EERE ELE REL AAS SALA AE LEAL RAFFLE FL LEF FES 
: BOWER DOWN ROUTINE 


Basses S880, fPROM: Bey 


£ | ERE RAEK RRA RA RL AAARARLE LEAR LEA ERAS LALLA SALLE RAAF ZE RAAF ELEAF 


‘ 
oO 


BOWER 


$PWRUP: MO 
MOV 


1$: 


SPWRMG: . 
MOV 
SPWRAD: a9 
SILLUP: 
B 


SSAVRE: 0 
SPOWER: 


MACY11 27(655) 


#34 
RO, 


J 
SP, SSAVRS 77 SAV 
#SPWRUP, JaPWRVEC'?;SET UP VECTOR 


“2 


#SILLUP, D#PWRVEC ;;SET FOR FAST DOWN 
$SAVRE, SP se 
SSAVRE !:WAIT LOOP FOR THE TTY 
SSAVRE ::WAIT FOR THE INC 
1$ 33 WOR 
(SP)+, ::POP STACK INTO JSWR 
(SP)+!R5 ::POP STACK INTO R5 
(5P)+'Ry ::POP STACK INTO RY 
(5P)+'R3 ::POP STACK INTO 83 
(5P)+' Re ::POP STACK INTO Re 
(SP)+'h) 62 STACK KTS AY 
* RD :;POP_STACK INTO RO 
#SPWRON, JBPWRVEC'::SET UP THE POWER DOWN VECTOR 
#340, a8 ::PRIO:7 


$PQWER 
(PC )+, (SP) 
BEGIN 


(15><12>"POQWER” 


aSILLUP .OgPHRY C : ABET FOR FAST UP 
0, JaPURVEC+ PRTO:7 
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;;PUSH TACK 
;;PUSH @SWR ON STACK 






:;:HANG UP 
















;REPORT THE POWER FAILURE 
;;POWER FAIL MESSAGE POINTER 
:;RESTART AT BEGIN 

;;RESTART ADDRESS 


;; THE POWER UP SEQUENCE WAS STARTED 
:; BEFORE THE POWER DOWN WAS COMPLETE 
:;PUT THE SP HERE 
















ids] 
Mm 


furufuturu 


(DEB DED CD ED 


coon oo cocoa 


CIGIGIGIGUTUTYU 
£ITur-OWOONIOW 


Bis intewsosoee ioe 


+ 0+ b+ b+ b= bb hs = bb oo hs = 8 oo 0 Bo ho he hh fo Fo he he po pe he 
coc yp monte wt mt tt me Tt 
wn 






eet eet ee ed ee ey eet 
t BO Oia tsanenis 
iar crear eal ealtalealealtal 


coco.9co.co 0D 
% uw 


MNOEC=i 


D2RTIA.Pll 
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POWER DOWN AND UP ROUTINES 


044514 042532 


be 042511 
10; 052106 


1 
020104 042502 


041501 
047113 


2 Ret or ee 

io t 

—WCo~Irue- 

OTT 
SRR ea eS 
WLl-OO 

ooo 

Boge oe 

omw 

wnuwt 

Ora 

wut 


Ul 
£nirun 
5 
vt 
’ 


047503 O46515 
047516 047455 
04 


Ne) 
047502 046515 


051104 053111 
046103 040505 
047503 O46515 









020054 





030075 
od ef EM14: .ASCIZ /AFTER SPINDLE POWERED UP RHCC SHOULD SE=0/ 


046125 
030075 


pet EmM1S: .ASCII /PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15>< 12> 


00522 
02e01c4 -ASCIZ /GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


4 
047101 


peo tao EMi6: .ASCII /NO-OP COMMAND CAUSED AN ERROR/<«15>< 12> 







006S2e 
020104 .ASCIZ /GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND” 








047101 


020105 
OeQlee 
047103 


~ASCII “DRIVE CLEAR COMMAND CAUSED AN ERROR’<15>< 12> 
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mye OZRIJ=A, RPOW/S/& FUNCT. CONT. TST-PT 2 MACYLI 27(655) 30-MAR-76 18:59 PAGE 236 
e5}a-Fii BOWER DOWN AND UP ROUTINES 


10863 age 920104 040503 951525 
10865 ices 051105 O47S22 O06S2e 
020104 -ASCIZ GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/ 








10 


-o- 
ICICI 
coc 
ow 
won 
£ 
£ 
-,*) 
ss 

a | 

a 

- 





J 
fue-(> 
££ 
Seo 
LU) 
mt 
Oo 
Le #4 
orn 
ul 
ond 
Gor 





<0) 60 00 0) C00 66 CO 







O4Y4054 041440 ee 040515 
puosas teats EM20: .ASCII /READ-IN COMMAND CAUSED AN ERROR/<i5><12> 


oe] oe] oe) el el ae el 








pas 105 42440 O0S1i22 
Q4ell7 042040 .ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONTENTS AFTER COMMAND/ 











0 

0 ‘ 

0 OW4e32 Oeblee O47503 046515 
pee 044240 047101 000104 
0 

0 


C44244 044122 051503 peed EM21: .ASCIZ /RHCS1 CONTENTS DURING COMMAND WAS IN ERROR/ 










1 
10992 944310 sea? ™ OSilee 051117 
10904 044317 lee O42110 Ga02g3 EMe2: .ASCIZ /RHDSi CONTENTS DURING COMMAND WAS IN ERROR/ 












7 
: 
? O44362 020116 051105 047522 

3 O44372 O471e5 047514 pie e0e EM23: 
u 

S 

=) 








«ASCII /UNLOAD COMMAND CAUSED AN ERROR/<15>< 12> 








Os bs bs 2 he pe 





O444e2 O42440 OSilee 051117 










07 





WADE <i, -DIRIT-8, SEQ4 E & FUNCT, CONT, TST-PT 2 maCyLL 27 55) 20-MAR-7e 18:59 PAGE 297 
ozay3aAil” Powe DWN ANC LP Adutine’s 

**9:° Mesabid - 7"@e7: 

Ris Roses SSSEG® oegr> guzoug ASCIZ GOOD DATA GIVES SHOULD BE, REC DATO GIVES REGISTER con. AFTES commanc 
HEIs SeesS$ Ssh: Berio) pevece ; 

RSh5 e Sra “ais 

He ROS ESS GIR ETE: 

i53e8 Buses seeics BE1030 ies 

lCSz3 ~ “oy 40 e101 . . 

me hat Re: fee Gale 

13626 Seyble peirse Sil339 5517 

38s” Ede? GETIES GNOwSO Oe e10g 

eet ee Ae Rice a 

1330 o a) OT 43108 QNEEE2 EMEY: ASCII OFFSET COMMAND CAUSED AN ERROR/«18) 12) 
153] S4454E g20184 O4PSS3 d4e5) 

iSsse Se45s4 O87151 20104 O40803 

19933 OW45b2 OSiSeS O4e10s OuoNsD 

itese Duvere OSbGES OB 

15S36 O4460] — 107 O47517 920104 .PSCIZ GOOD DATA Gi.ES-SHOULD BE, REC DATA GIVES REG. CONT. @FTER COMMAND. 
15S3? D44E0E 40504 O405e4 O43440 

15638 O44614 Os3il1 OsiSds Os144 

10633 Oy4e22 O47S10 46125 20104 

1040 44635 O4e502 d2C0S4 dsese2 
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‘GOOD DATA GIVES WHAT SHOULD BE THERE. <15>< 12> 






WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE’ «iS)<12 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 


(RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 


/WRITE HEADER AND DATA CHANGED WRITE FROM SUFFER: 


‘READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE“<i§><12> 
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RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND / 


/WRITE HEADER DATA FOLLOWED BY READ HEADER AND DATA CAUSED DATA ERROR 


READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 
/G00D DATA GIVES WHAT SHOULD BE THERE /<15><12) 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 


/READ DATA INCORRECT/ 


/WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE <15><12> 
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SEQ 0288 


TST-PT 2 MACYL] 27(655) 30-NAR-76 18:59 PAGE 240 
BowER DOWN AND UP ROUTINES 


~ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE’<15>< 12> 


-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


EMS6: .ASCIZ /WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


EMS7: .ASCII /SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE ’<15>< 12> 


-ASCII /GOOD DATA GIVES WHAT SHOULD SE THERE/<1§5><12> 


-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND. 
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ROWS’ FUNCT. CONT. TST-PT 2 
POWER DOWN AND UP ROUTINE 
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MACY11 27(655) 30-NAR-76 18:59 PAGE 241 


‘WRITE CHECK CAUSED IMPROPER REGISTER CHANGE’<15><12) 


/GOOD DATA GIVES WHAT SHOULD BE THERE’<15><1l2> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND 


/LOCKING OUT WRITE BY WRITE LOCK BUTTON CQUSED IMPROPER REGISTER CHANGE’ 


/GO0D DATA GIVES WHAT SHOULD BE THERE-<1§><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT 
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/GOO0D DATA GIVES WHAT SHOULD BE THERE’<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/ 


/WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15>< 12> 
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POWER DOWN AND UP ROUTINES 
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/WAS ATTEMPTED/<15>< 12> 


/RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15>< 12> 


‘WITH WRITE LOCKED OUT WAS ATTEMPTED/ 


/ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/<1 


“GOOD DATA GIVES WHAT SHOULD BE THERE/’<15>< 12> 


“RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15>< 12> 


“ENABLED WRITES/ 
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/TRANSFERRING ON LAST BLOCK - CYLINDER 410. - 814., SECTOR 21, /<15)¢12) 


/TRACK 18, CAUSED IMPROPER REGISTER CHANGE/<15>< 12> 


‘GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/ 


/DATA READ FROM LAST BLOCK - CYLINDER 410. - 814., SECTOR 21,/«15><12> 


“TRACK 18, IS IN ERROR/ 
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POWER DOWN AND UP ROUTINES 
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/REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><1le> 


-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/ 


/TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12> 


“GOOD DATA GIVES WHAT SHOULD BE THERE’<15><12> 


“BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/ 
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DZRITA.P1 POWER DOWN AND UP ROUTINES 
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EMS3: .ASCIZ /READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/ 


EMS4:  .ASCII “ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE 


«ASCII /GO0D DATA GIVES WHAT SHOULD BSE THERE/<15><12> 


~ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION- 


EMSS:  .ASCII /WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15>< 12> 





“CAUSED IMPROPER REGISTER CHANGE’<15>< 12> 
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POWER DOWN AND UP ROUTINES Ae 
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SEQ 0296 
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.ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


EMS&: .ASCII /DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR IS INCORRECT/<i5><12> 


-ASCIT /WORD NO..1 TO 260 SHOULD BSE READ, WORD NO 261 TO 266 SHOULD/<15><12> 
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~ASCIZ /BE CHANGED’ 
EMS7:  .ASCII “ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT CAUSED’<15><12> 














NMUNEOIM+-OW DO SIMUL OI OWI UL OTe. edt 


020 0.0.00000.0 009 09 09 09 C00 000000 0 ~~~ ~~~) 


OOow 
Wrre-Owdm 


et i ae tat be Me te eb MM Lh te te lth rhs Ab Ab Ae dy de dg dod 


0 + 8 8 OOOO 
ONO CW OWONM 


051120 


‘020104 
Q O4eS10 


42503 


32 051516 


o4e524 


042520 
043505 


042510 


* 042503 
042040 


050117 


MNOEC-11-D2RJJ-A, REOW/S/& FUNCT. CONT. TST-PT 2 
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-ASCII /IMPROPER REGISTER CHANGE,<15><1e> 


~ASCIT /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< le» 
-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/ 


Fg VS 5 
-ASCIT /ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED: IMPROPER/<15>< 


-ASCII /REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


-ASCII /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15 











’ 
” 
& 

fee 
‘) 
ts 


FepFesfentesGertere - 
TepCentesFenterter 
Pa Piri -2 
Crees & 

y 


TTA Tata 


€ RRR JO 0 90-90 0 ot 0 ae 
tu 


Pant 
EEE EERE RELEASE 


PY hototlohutotchoteten. 
DCT estintes 


DOC Def00)~ DOF ETT 4 hatte 8 pee 


al 


Pit tue ete TUNE bon 
LIGIGIEITUTUTUTUTYD 


tarurue-C>~ errant 
£ Poor Lorcshoee 


© 
uw 
(GID * 
Poe Gots yon 


HnEEUEEE EAE Ef 
(UC “Iu “Ime 
O-* COTE =< -- - CTI 


Wear th tiv 
- RRAIELAE A 


@ RRR 
o_o fo 


—- GIO) 


yo ara 
003 
oO 
it 


x 
) 
WUM Orr I~) 


REP 
seep 


On Pike 
SPO Gare O00 SOULS Gofue- 


SIP OP OP OP OP CP CG 


Ont ne Be Be 8 ee Be Bt ee Be Be et be 8 me 8 tb Be be ee ee he he he Od 8 hk he Oe He He eh ee ee 
i 


PAAPORT ORO AT IMO R OMA CACAO Mi Ali aia istiatealialistialesle ate stiatiati ali sti sti alialiatiali alist ales ials ate ata ari 


ee ee ee he nee hs be Be 8 8 he be he Be he he eb he pe ee ht ehh Oh hh hd Ae hb ee ee Oe eee ee 


fe-Cn00D 


= | 


an 
rm 
i 
’ 

cu 

an 
4 


i 
we 


Lo -r 


-~*-- “wn -~- - 


a euch apn 4S anne a 
eMS~ se OF I ta SEG asEs SCLRES 


RZ 
ft. 
Mabey CC 
=f pe -€ bee 

" 

"” 

m 

ae 

mn 

n 

mw 

ery 


wet 
ane 





€ 

:s 

£ 

an 

° 
MOQOONIOIOMIMOIOOD Cstt5 
Niue f LU cine © 
PC IC 10) £6 TC ets 4. 
mC )e- Ce Cote fuc 050) fart ye 
MUNI £1 toate 


2 EMSi: .ASCIZ /DEVICE NOT AVAILABLE BEFORE COMMAND WAS TC SE GIVEN 
“ 
Qo 
0 
O4eSee 04 
0 
Q 
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/INTERRUPT FAILING’ 


tm 


‘HEADER AND DATA COMMAND FOR HEAD SELECTION TEST/«15> 


~ 


‘CAUSED ERROR/<15>< 12> 


/RHOST GIVES WHAT TRACK WAS BEING WRITTEN OR READ’ <15>¢ 


e- 
fu 


/ON CYLINDER 0, SECTOR O/ 


/READ HEADER AND DATA ERROR IN HEAD SELECTION TEST“<«12><15> 


‘FIRST FOUR WORD NUMBERS ARE HEADER’<12><15> 


/WORD NUMBERS § TO 260 ARE DATA WORDS.«12><15> 
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RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PLLSES/ 


/THERE WAS A SETUP ERROR DURING MULTIPLE WRITE/<15>< 12) 


“HEADER AND DATA COMMANDS RESULTING IN AN ABORT/<15>< 12> 
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/THAT IS OVER 3 INDEX PULSES CAUSED AN ERROR. 
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WAIT BIT REG TIME IN/‘15>< 12> 
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/ NO RHCS1 RHAS RHOS1/ 





/PC TEST RHDST RHER1 RHER2 RHERS RHCS1 





RHCS2/ 






“PC TEST RHCSI RHCS2 RHDS1 RHOST RHCA RHERi RHWC/ 


SERRPC, TSTNM, WAITPC,WAITET,WAITRE, $8DDAT,CS1,0 
SERRPC, TSTNM, TSTNM, WAITPC, WAITBT, WAI TRE, SBDDAT, WAITTM, 0 
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